ايران ويج

ايران ويج > برنامه نویسی > ويژوال بيسيك > چند سوال درباره ی vb
نسخه‌ی کامل: چند سوال درباره ی vb
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.

mr.hk

۲۲-آبان-۱۳۸۸, ۱۵:۳۱:۰۲
با سلام خدمت اعضاء ایران ویج
من حدود 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

۲۲-آبان-۱۳۸۸, ۱۶:۰۲:۴۴
(۲۲-آبان-۱۳۸۸, ۱۵:۳۱:۰۲)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
ايران ويج > برنامه نویسی > ويژوال بيسيك > چند سوال درباره ی vb