ايران ويج » برنامه نویسی » ويژوال بيسيك v
» چند سوال درباره ی vb

امتیاز موضوع:
  • 1 رأی - میانگین امتیازات: 5
  • 1
  • 2
  • 3
  • 4
  • 5
چند سوال درباره ی vb
نویسنده پیام
mr.hk آفلاین
تازه وارد

ارسال‌ها: 1
موضوع‌ها: 1
تاریخ عضویت: آبان ۱۳۸۸

تشکرها : 1
( 0 تشکر در 0 ارسال )
ارسال: #1
چند سوال درباره ی vb
با سلام خدمت اعضاء ایران ویج
من حدود 5 روز شروع به برنامه نویسی کردم برای اولین بار و با Vb شروع کردم چند سوال برام پیش اومده اگر کمک کنید ممنون میشم

1 - اینکه چگونه میشه به یک Button دستوری داد که بعد از Click یک فایل exe یا .reg رو اجراکه مثل برنامه MMB

2 - چطوری میشه از اسکین های vb استفاده کرد من اسکین های آماده با فرمت skf دانلود کردم اما روش استفاده رو بلد نیستم

3 - من یک nick name maker نوشتم نکته اول اینکهsymbol ها در برنامه ؟؟؟ نشان داده میشه و اینکه میخوام حروفی که از list2 کلیک میکنم بعد از متن قرار بگیره یعنی از سمت راست

[تصویر: oadgngje3aed5ereo6t1.jpg]

سورس nick name maker :

کد:
Private Sub Form_Resize()
On Error Resume Next

Me.ScaleMode = 0
Me.ScaleHeight = 256
Me.ScaleWidth = 256
Me.DrawWidth = 3
For IntX = 0 To 255
Line (0, IntX)-(Me.ScaleWidth, IntX), RGB(IntX, 0, 0)
Next

End Sub




Private Sub form_load()
On Error Resume Next

List1.AddItem "(¨`'·.¸"
List1.AddItem "†"
List1.AddItem "?"
List1.AddItem "?"
List1.AddItem "5"
List1.AddItem "6"
List1.AddItem "?"
List1.AddItem "8"
List1.AddItem "9"
List1.AddItem "10"
List1.AddItem "11"
List1.AddItem "12"
List1.AddItem "13"
List1.AddItem "14"
List1.AddItem "15"
List1.AddItem "16"
List1.AddItem "17"
List1.AddItem "18"
List1.AddItem "19"
List1.AddItem "20"
List1.AddItem "21"
List1.AddItem "22"
List1.AddItem "23"


List2.AddItem "¸.·'`¨)"
List2.AddItem "b"
List2.AddItem "c"
List2.AddItem "d"
List2.AddItem "e"
List2.AddItem "f"
List2.AddItem "g"
List2.AddItem "h"
List2.AddItem "i"
List2.AddItem "j"
List2.AddItem "k"
List2.AddItem "l"
List2.AddItem "m"
List2.AddItem "n"
List2.AddItem "o"
List2.AddItem "p"
List2.AddItem "Q"
List2.AddItem "r"
List2.AddItem "S"
List2.AddItem "t"
List2.AddItem "u"
List2.AddItem "v"
List2.AddItem "w"
List2.AddItem "X"
List2.AddItem "y"
List2.AddItem "z"


End Sub


Private Sub list1_click()


On Error Resume Next
Text1.SelStart = 0
Text1.Text = List1.Text & Text1.Text


End Sub

Private Sub list2_click()
On Error Resume Next
Text1.SelStart = 0
Text1.Text = List2.Text & Text1.Text

End Sub

Private Sub Form_Resize()
On Error Resume Next

Me.ScaleMode = 0
Me.ScaleHeight = 256
Me.ScaleWidth = 256
Me.DrawWidth = 3
For IntX = 0 To 255
Line (0, IntX)-(Me.ScaleWidth, IntX), RGB(IntX, 0, 0)
Next

End Sub




Private Sub form_load()
On Error Resume Next

List1.AddItem "(¨`'·.¸"
List1.AddItem "†"
List1.AddItem "?"
List1.AddItem "?"
List1.AddItem "5"
List1.AddItem "6"
List1.AddItem "?"
List1.AddItem "8"
List1.AddItem "9"
List1.AddItem "10"
List1.AddItem "11"
List1.AddItem "12"
List1.AddItem "13"
List1.AddItem "14"
List1.AddItem "15"
List1.AddItem "16"
List1.AddItem "17"
List1.AddItem "18"
List1.AddItem "19"
List1.AddItem "20"
List1.AddItem "21"
List1.AddItem "22"
List1.AddItem "23"


List2.AddItem "¸.·'`¨)"
List2.AddItem "b"
List2.AddItem "c"
List2.AddItem "d"
List2.AddItem "e"
List2.AddItem "f"
List2.AddItem "g"
List2.AddItem "h"
List2.AddItem "i"
List2.AddItem "j"
List2.AddItem "k"
List2.AddItem "l"
List2.AddItem "m"
List2.AddItem "n"
List2.AddItem "o"
List2.AddItem "p"
List2.AddItem "Q"
List2.AddItem "r"
List2.AddItem "S"
List2.AddItem "t"
List2.AddItem "u"
List2.AddItem "v"
List2.AddItem "w"
List2.AddItem "X"
List2.AddItem "y"
List2.AddItem "z"


End Sub


Private Sub list1_click()


On Error Resume Next
Text1.SelStart = 0
Text1.Text = List1.Text & Text1.Text


End Sub

Private Sub list2_click()
On Error Resume Next
Text1.SelStart = 0
Text1.Text = List2.Text & Text1.Text

End Sub
۲۲-آبان-۱۳۸۸, ۱۵:۳۱:۰۲
ارسال‌ها
پاسخ
Robocup آفلاین
كاربر دو ستاره
**

ارسال‌ها: 80
موضوع‌ها: 8
تاریخ عضویت: مهر ۱۳۸۸

تشکرها : 1016
( 249 تشکر در 78 ارسال )
ارسال: #2
RE: چند سوال درباره ی vb
(۲۲-آبان-۱۳۸۸, ۱۵:۳۱:۰۲)mr.hk نوشته است: با سلام خدمت اعضاء ایران ویج
من حدود 5 روز شروع به برنامه نویسی کردم برای اولین بار و با Vb شروع کردم چند سوال برام پیش اومده اگر کمک کنید ممنون میشم

1 - اینکه چگونه میشه به یک Button دستوری داد که بعد از Click یک فایل exe یا .reg رو اجراکه مثل برنامه MMB
کد php:
Private Sub cmdExec_Click() ' كدهايي كه در دكمه فراخواني نوشته ميشود
Dim RetVal
RetVal = Shell("C:\WINDOWS\System32\calc.exe", 1) ' فراخواني فايل exe.

End Sub 
(۲۲-آبان-۱۳۸۸, ۱۵:۳۱:۰۲)mr.hk نوشته است: 2 - چطوری میشه از اسکین های vb استفاده کرد من اسکین های آماده با فرمت skf دانلود کردم اما روش استفاده رو بلد نیستم

اين صفحه مربوط ميشه به برنامه هايي كه ميتوني skinها رو load كني
http://www.freedownloadscenter.com/Best/...m-vb6.html
رباتیک تخصص ماست

(آخرین ویرایش در این ارسال: ۲۲-آبان-۱۳۸۸, ۱۶:۰۶:۵۴، توسط Robocup.)
۲۲-آبان-۱۳۸۸, ۱۶:۰۲:۴۴
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : mr.hk


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  نیاز به راهنمایی درباره ارسال اطلاعات reza2010wf 2 3,830 ۲۶-شهریور-۱۳۹۴, ۱۱:۵۸:۰۷
آخرین ارسال: Ghoghnus
  [سوال] سوال درباره ي ActiveX javaweb 32 19,125 ۲۹-خرداد-۱۳۹۲, ۱۸:۵۳:۳۹
آخرین ارسال: javaweb
  سوالاتی درباره ی هندل javaweb 7 7,499 ۱۸-خرداد-۱۳۹۲, ۱۴:۲۱:۲۸
آخرین ارسال: Di Di
Question سوال درباره چگونگي سرچ كردن در ديتابيس PRO 17 11,943 ۰۸-شهریور-۱۳۹۱, ۱۹:۵۲:۲۷
آخرین ارسال: PRO
  درباره ی شی list view و کاربا پایگاه داده RAMA2009 0 4,024 ۲۱-اسفند-۱۳۸۹, ۲۳:۰۱:۴۰
آخرین ارسال: RAMA2009
  سوال مهم درباره Web Browser hamidjava 3 4,220 ۲۱-دى-۱۳۸۹, ۲۱:۰۶:۳۶
آخرین ارسال: mohamadpk
  سوال درباره ی Rich TextBox hasanian 3 3,799 ۳۱-اردیبهشت-۱۳۸۹, ۱۰:۵۷:۱۱
آخرین ارسال: HoseinVig
  سوال درباره ی نمایش Process ها در برنامه saeedvir 3 4,131 ۱۰-مهر-۱۳۸۸, ۱۱:۲۹:۱۰
آخرین ارسال: Fireninja
Toungue یه سوال درباره فونت dreamvbfox 12 10,876 ۲۱-بهمن-۱۳۸۷, ۰۴:۵۸:۲۴
آخرین ارسال: vz67
  چند سوال درباره فونت و فرم تو وی بی mojtabamalaekeh 4 3,410 ۳۰-فروردین-۱۳۸۷, ۰۲:۱۴:۱۷
آخرین ارسال: mojtabamalaekeh

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS