سورسهاي مفيد در VB

[NASA's Spaceman]

سلام به وی بی کار ها
دوستان تشکر کردن از مطالب یادتون نره و تا پایین نگاه کنین چون گرافیک آخر این صفحه گذاشتم
این بخشی رو که مینویسم باید تو بخش جنرال تعریف کنید دقت کنید حروف بزرگ و فاصله ها و همه چیز رو باید درست عین کد زیر رعایت کنید
اول اينو تو جنرال تعريف کنين بعد کد هاي زيرش رو توي Command هاي جداگانه بنويسين
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal strReturnLength As String, ByVal uReturn As [Long, ByVal hwndCallback As Long) As Long
يه Command براي باز کردن سي دي يا دي وي دي کامپيوتر
&mciSendString "Set CDAudio Door Open Wait", 0&, 0&, 0
خب يک Command هم براي بستن سي دي يا دي وي دي کامپيوتر
&mciSendString "Set CDAudio Door Closed Wait", 0&, 0&, 0

[NASA's Spaceman]

قبل از هر چیزی خواهش میکنم هر کسی اینو میخونه نظر یادش نره
اول باید این کد رو تو بخش جنرال تعریف کنید
Private Type rect
left As Long
right As Long
top As Long
bottom As Long
End Type
Private Declare Function ClipCursor Lib "user32" (lprect As Any) As Long
حالا یه Command بزارین برای قفل اشاره گر موس
Dim r As rect

r.left = 120
r.right = 120
r.top = 120
r.bottom = 120

ClipCursor r
حالا یه Command دیگه برا باز کردن قفل اشاره گر موس
ClipCursor 0&
دوباره تاکید میکنم خواهش میکنم نظر بدین تا اشتیاق بیشتری پیدا کنم و مطالب ارزشمندی رو براتون بزارم تا همه بتونن استفاده کنن، با این میتونین دوستاتون رو سرکار بزارین و کاری کنین که فکر کنن دیگه نمیتونن از موس استفاده کنن

[NASA's Spaceman]

سلام
در بخش جنرال اینو مینویسیم
dim a as integer
بعد
Private Sub Form_load()

a = 100

End Sub

Private Sub Timer1_Timer()

If label1.Left < Form1.Width - label1.Width Then
label1.Left = label1.Left + a
Else
a = -a
label1.Left = label1.Left + a
End If

If label1.Left = 0 Then a = a + 200

End Sub

در برنامه های سنگین و همچنین بازی سازی این مورد خیلی خیلی کاربرد داره

[NASA's Spaceman]

سلام ابتدا در جنرال متغیر را تعریف میکنیم
بعد یک image روی فرم قرار میدهیم و ان را copy و paste میکنیم به تعداد مورد نیاز و سپس stretch ان را با true مقداردهی میکنیم و سپس بر اساس تعداد تصویرمون اعداد کد زیر رو تغییر میدیم
Dim k As Integer

Private Sub Form_Load()

For k = 0 To 5

Image1(k).Visible = False

Next k

k = 0
Image1(k).Visible = True

End Sub

Private Sub Timer1_Timer()

Image1(k).Visible = False
k = k + 1

'در خط زير عدد 6 قرار داديم در صورتي که 5 تصوير بوده ولي وقتي ارايه اي بشود از صفر محاسبه ميشود پس به تعداد در کد زير يکي اضافه ميکنيم
If k = 6 Then k = 0

Image1(k).Visible = True

End Sub
میتونه کمکتون کنه تا بتونین در نرمافزارهاتون از این استفاده کنین تا جذابیت کارتون رو بالا ببرین

[NASA's Spaceman]

سلام

Dim a(1 To 3, 1 To 3) As Integer, b(1 To 3, 1 To 3) As Integer

Private Sub Command1_Click()

For i = 1 To 3
For j = 1 To 3

a(i, j) = InputBox("")
Print a(i, j);

Next
Print
Next

Print "************************************"

End Sub

Private Sub Command2_Click()

For i = 1 To 3
For j = 1 To 3

b(i, j) = InputBox("")
Print b(i, j);

Next
Print
Next

Print "************************************"

End Sub

Private Sub Command3_Click()

For i = 1 To 3
For j = 1 To 3

Print b(i, j) + a(i, j);

Next
Print
Next

Print "************************************"

End Sub

Private Sub Command4_Click()

For i = 1 To 3
For j = 1 To 3

If i = j Then a(i, j) = 0

Print a(i, j)

Next
Print
Next

For i = 1 To 3
For j = 1 To 3

If i = j Then b(i, j) = 0

Print b(i, j);

Next
Print
Next

Print "************************************"

End Sub

Private Sub Command5_Click()

For i = 1 To 3
For j = 1 To 3

If i + j = 4 Then a(i, j) = 0

Print a(i, j);

Next
Print
Next

For i = 1 To 3
For j = 1 To 3

If i + j = 4 Then b(i, j) = 0

Print b(i, j);

Next
Print
Next

End Sub

اگه دوست دارین کار های دیگه ای روی ماتریس انجام بدین رو هم بهم بگین تا کد نویسیش رو براتون بزارم

[NASA's Spaceman]

Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = vbRightButton Then

LockWindowUpdate Text1.hWnd
Text1.Enabled = False

DoEvents
Text1.Enabled = True
LockWindowUpdate 0

End If

End Sub

[NASA's Spaceman]

گرافیکی زیبا و بدردبخور در VB6 خواهشا یه تشکر هم بکنین از مطالب
Private Sub Command1_Click()
N = -240 / 140
For R = 540 To 1020 Step 140
S = R - 6
For i = 0 To 14 * 3.14159 Step 0.001
x = R * Cos(i) + S * Cos(N * i) + 2200
y = R * Sin(i) + S * Sin(N * i) + 2200
PSet (x, y)
Next i
Next R
End Sub

نظر یادتون نره