تبلیغات


به تیمت امتیاز بده دریافت کد

برنامه نویسان کوثر - آموزش ویژوال بیسیک

آموزش ویژوال بیسیک


سلام در این بخش قصد دارم به سوالاتتون در زمینه ویژوال بیسیک جواب بدم 
جهت طرح سوال لطفا روی ادامه مطلب کلیک کنید




سوالاتتون رو در قسمت نظرات مطرح کنید تا در اسرع وقت پاسخ بدیم

مشکل حرف ی

همه وی بی 6 کارها پس از مدتی با یک مشکل مواجه میشن اونم اینه که وی بی6 حرف ی فارسی رو نمی شناسه در واقع قضیه اینه که وی بی6 مال سال 1998 هست و اون زمان مایکروسافت از زبان فارسی پشتیبانی نمی کرده


به هرخال زیاد نمی خوام راجع به دلیلش صحبت کنم ولی بهتون توصیه میکنم اگر وی بی کار هستید حتما این آموزش رو تا آخر با دقت بخونید که جای دیگه گیرتون نمیاد

ما در کامپیوتر 2 نوع ی داریم 1- ی فارسی که زیرش نقطه نیست 2 - ی عربی که زیرش نقطه داره
مشکل حرف ی در وی بی6 با استفاده از کامپوننت CODJOCK و شی FILE SYSTEM OBJECT حل میشه که البته در هر حالتی به یک شکله

بعد از اینکه کامپوننت رو در وی بی بالا آوردید و رجیستری کردید می بینید که ابزار های مختلفی به پروژتون اضافه میشه که که زیبایی خوبی هم دارند
حالا یک تکست باکس که اسمش در این کامپوننت FlatEdit هست و یک تکست باکس خود وی بی 6  رو به فرمتون اضافه کنید 
حالا یک کلمه در یه جای دیگه مثلا اسم یک فایل که توش حرف ی فارسی هست رو در هر دوی تکست باکس ها کپی کنید خواهید دید که کامپوننت جدید اون اسم رو درست نشون میده ولی تکست باکس وی بی6 یا حرف های ی فارسی رو تبدیل به ی عربی میکنه و یا تبدیل به علامت سوال

حالا فرض کنید می خواید یک فایل که دراسم یا آدرسش ی فارسی وجود داره رو در یک آدرس دیگه که اون هم درش حرف ی فارسی وجود داره  با استفاده از CommonDialog کپی کنی کدشم اینه 
"FileCopy CommonDialog1.FileName , "d:\1.bmp


که البته می بینی که خطا میده
برای اینکار ابتدا از قسمت project -- reference  گزینه microsoft scripting runtime رو علامت بزنید

حالا شی FILE SYSTEM OBJECT فعال شد
البته اینو بگم شی FILE SYSTEM OBJECT خواص زیادی داره که هر وی بی6 کاری باید باهاش آشنا بشه
حالا CommonDialog کامپوننت codjoke  رو به پروژت اضافه کن 
و این کد ها رو در یک باتون کپی کن

Dim a As New FileSystemObject
Dim b As File
CommonDialog2.DialogStyle = 1
CommonDialog2.ShowOpen
Set b = a.GetFile(CommonDialog2.FileName)
CommonDialog2.ShowSave
b.Copy CommonDialog2.FileName

می بینید که به خوبی و خوشی فایل کپی شد 
البته شی FILE SYSTEM OBJECT خواص زیادی داره مثلا اینکه در مورد فایلها یا درایوها میتونه اطلاعات زیادی از جمله فرمتشون - حجمشون و... رو بهتون بده یا اینکه اگه بخواهید یک فایل باز رو کپی کنید که در حالت عادی با FileCopy  نمیشه ولی  FILE SYSTEM OBJECT اینکار رو انجام میده

به هر حال امیدوارم از این آموزش لذت برده باشید 
لطفا هر جاییش مبهم بود یا به مورد جدیدتری برخوردید در قسمت تماس بامدیر (بالای صفحه) پیغام بدید تا جواب بدم
ضمنا میتونید ایمیل هم بزنید alivazirivafa@gmail.com




دستور Shell

توسط این دستور می تونید فایلی را در وی بی اجرا كنید . به این صورت است

Shell ProgramPath,RunModel

در پارامامتر اول مسیر فایل ودر پارامتر دوم مدلی كه برنامه باید اجرا شود.

vbHide=0 vbMaximizedFocus=1 vbMinimizedFocus=2 vbMinimizedNoFocus=3 vbNormalFocus=4 vbNormalNoFocus=5

در مدل صفر برنامه به صورت پنهان ظاهر می شود.برای مواقعی كه می خواهیم عمل اجرا را از دید كاربر پنهان كنیم .در مدل 2 برنامه اجرا می شود به صورت كمینه(روی منوی استارت-مینیمایز شده)وفاكس هم روی ان می رود یعنی این كه بعد از اجرا هی زرد و آبی می شود تا كار بر روی آن كلیك كند.مدل 3برنامه به

صورت ینیمایز -كمینه اجرا می شود زرد وآبی نمی شود (معمولی-فاكس رویش نمی رود).مدل 1برنامه به صورت تمام صفحه اجرا شده فاكس هم روی آن می رود(زرد و ابی می شود).در مدل 4برنامه با اندازه پیش فرض اجرا می شودوفاكس را هم می گیرد.درمدل 5برنامه با اندازه معمولی اجرا شده و فاكس نمی گیرد

كار برد مهم دیگر شل اجرا فایل های معمولی با یك برنامه اجرایی است مثل اجرای یك متن در نت پد.برای این كار نام فایل را بایك فاصله از نام فایل می نویسیم

Shell "NotPath.Exe"+" C:\Text1.txt" ,4

توجه داشته باشید كه برای اجرای فایل باید نام ومسیر فیل را با یك كاراكتر فاصله بنویسید

اگر فایلی در مسیر برنامه تان كپی كرده اید این را بنویسید

shell "notpath.exe"+(app.path+"\"+"your File Name")

اگر شما فایلی را از پوشه 

اجرا كنید به مسیر كامل نیاز نیست برنامه ای مانند كامند پرامپت بازی ها واسكرین سیور ها در این پوشه system32

است.مثال hell "cmd.exe",4

اجرای یك فولدر با شل

واقع در درایو ویندوز را به همراه نام فیل اجرا می كنیمexplorer.exeبرای این كار فایل اجرائی

shell "explorer.exe"+" c:\windows" ,3

با اجرای این برنامه پوشه ویندوز اجرا می شود روش بالا در سی دی های اتوران استفاده ی زیادی دارد

Shell "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl "كادر حذف برنامه ها 
Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl"كادر تغییر پس زمینه 
Shell "rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl"كادر اینتر نت 
Shell "rundll32.exe shell32.dll,Control_RunDLL modem.cpl"كادر مودم 
Shell "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl"كادر صدا 
Shell "rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl"كادر شبكه 
Shell "rundll32.exe shell32.dll,Control_RunDLL powercfg.cpl"كادر پاور-برق
Shell "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl"كادر سیستم 
Shell "rundll32.exe shell32.dll,Control_RunDLL telephon.cpl"كادر تلفن 
Shell "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl"كادر ساعت 

كتابخانه وسیع Shell

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal_ lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal_ nShowCmd As Long) As Long

كد های زیر را هر جا استفاده كنید جواب می دهدالبته بهد از اینكه كد بالا را در اولین خط فرم نوشتید

Shell "arp"
Shell "drvspace"
Shell "drwatson"
Shell "explorer"برای my document 
Shell "freecell"
Shell "netstat"
Shell "calc"ماشین حساب 
Shell "notepad"نوت پد 
Shell "packager"
Shell "pbrush"نقاشی
Shell "ping"
Shell "regedit"ریجیستری
Shell "route"روت
Shell "scandskw"اسكن دیسك 
Shell "ftp"برای تنظیم اف تی پی 
Shell "ipconfig"كادر آی پی 
Shell "mplayer"مدیا پلیر 
Shell "mshearts"
Shell "nbtstat"
Shell "scanregw"اسكن رگ
Shell "setdebug"كخك تری تنظیم ویندوز 
Shell "sigverif"
Shell "cdplayer"سی دی پلیر 
Shell "sndrec32"ضبط صدا 
Shell "sndvol32"تنظیم ولوم صدا 
Shell "winipcfg"
Shell "winmine"
Shell "sol"همون سول
Shell "taskman"وضعیت سی پی یو
Shell "telnet"تلفن
Shell "vcmui"
Shell "winfile"
Shell "winrep"
Shell "charmap"كاراكتر مپ 
Shell "winver"
Shell "write"وورد پد 
Shell "wscript"
Shell "cleanmgr"كلنر پاك كننده اشغال درایو 
Shell "control"كنترل پنل 
Shell "cvt1"
Shell "defrag"دفراگمنت
Shell "drvspace" فضای خالی دیسك 

اجرای  فایل اینترنت با Shell
shell "Explorer.exe"+" http://www.juggle.blogfa.comن به یك سایت 
shell "explorer.exe"+" maileto:juggle7000@yahoo.com"كادر ارسال ایمیل 
shell "explorer.exe"+" yor HTML File.html"كادر اجرای یك فایل اینترنت از حافظه 
shell "explorer.exe"+" file://www.سایت شما.com/11.zip"كادردانلود یك فایل از اینترنت

برای باز کردن My Computer در VB 6 بایستی از کد زیر استفاده کنید :
1
Call Shell("Explorer /n,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNormalFocus)










نظرات() 
حسین
شنبه 7 آذر 1394 05:03 ب.ظ
متشکرم
حسین
شنبه 7 آذر 1394 04:52 ب.ظ
سلام با تشکر از سایت خوبتون لطفا بگید چطوری میشه یک عکس رو در یک پیکچرباکس نشون داد
پاسخ علی وزیری : Picture1.Picture = LoadPicture("C:\1.jpg")
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر


نیازمندیهای رسا برنامه نویس نرم افزار اقتصاد خانواده نرم افزار کنترل ساعات بازی رایانه ای نرم افزار مدیریت اینترنت و درایوها
برنامه نویس

نظر سنجی در باره وحدت شیعه و سنی

وحدت شیعه و سنی نظرتان راجع به وحدت شیعه و سنی را در کادر زیر درج نمائید
به تیمت امتیاز بده دریافت کد
به تیمت امتیاز بده دریافت کد