سلام به رفقاي عزيز و خوب عشق وي بي 6
اميدوارم حالتون خوب باشه
خوب ديگه بريم سر اصل مطلب
خوب دوستان من تصميم گرفتم كه يك تاپيك بزنم و سورسها رو در اينجا بگذارم
اولين سورس يه سورس افكت ورود و خروج از فرم هست كه خيلي زيباست!
دومین سورس هم كه خيلي مبتديه ولي بد نيست!
اين سورس پرچم كشور ايرانه!
سلام دوستان
با اين كد ميتوانيد متن سه بعدي ايجاد كنيد:
کد php:
Private Sub Command1_Click()
Dim i, x, y
Me.FontSize = 26
Me.ForeColor = 0: x = CurrentX: y = CurrentY
For i = 0 To 444
Print "Programmign By : Visual Basic 6 Love" ' Here goes your text.
x = x + 1: y = y + 1: CurrentX = x: CurrentY = y
Next i
Me.ForeColor = 255
Print "Programmign By : Visual Basic 6 Love"
End Sub
سلام دوستان
با اين كد ساده شما ميتوانيد فايلهاي با پسوند Wav و Midi رو در برنامتون اجرا كنيد:
کد php:
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
Private Sub Command1_Click()
iresult = mciExecute("play C:\WINDOWS\MEDIA\Notify.wav")
End Sub
سلام دوستان
با اين كد هنگام خروج از فرم يك انيميشن زيبا را ببينيد:
کد php:
Private Sub Form_Unload(Cancel As Integer)
Dim counter As Integer
Dim I As Integer
counter = Me.Height
Do: DoEvents
counter = counter - 10
Me.Height = counter
Me.Top = (Screen.Height - Me.Height) / 2
Loop Until counter <= 10
I = 15
counter = Me.Width
Do: DoEvents
counter = counter + I
Me.Width = counter
Me.Left = (Screen.Width - Me.Width) / 2
I = I + 1
Loop Until counter >= Screen.Width
End
End Sub
سلام دوستان
با اين سورس چند افكت زيبا هنگام خروج از فرم رو مشاهده كنيد:
سلام دوستان
با اين كد يك متن با رنگهاي زيبا ايجاد كنيد:
کد:
Sub Form_Paint()
Dim I As Integer, X As Integer, Y As Integer
Dim C As String
Cls
Me.FontSize = 12
For I = 0 To 91
X = CurrentX
Y = CurrentY
C = Chr(I)
CurrentX = X
CurrentY = Y
ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
Print "Programming By : Visual Basic 6 Love"
Next
End Sub
سلام دوستان
با اين كد ميتوانيد يك عكس را برعكس كنيد:
دو تا پيكچر باكس و يك كامند باتن به فرم اضافه كنيد و يك عكس به دو تا پيكچر باكس اضافه كنيد و كد زير را وارد كنيد:
کد:
'Programming By : Visual Basic 6 Love
Private Sub Command1_Click()
Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, _
Picture1.Height, Picture1.Width, 0, -Picture1.Width, _
Picture1.Height, vbSrcCopy
End Sub
بیکار بودم گفتم سورس این برنامه رو بزارم !!!
سلام.
VisualBasic6Love اگه یه تاپیک ایجاد کنی به نام سورس های ویژوال بیسیک و سورس هاتو با نام و عنوان داخل اون تاپیک قرار بدی تا همه یه جا جمع شن بهتره. تاپیک رو بزن من سورس هاتو انتقال میدم داخل تاپیک.
-----------------------------------------------------------------
دوباره سلام.
خوب جناب VisualBasic6Love تاپیک رو زدی.
همون طور که گفته بودم تمامی سورس ها و کدهایی که تا به حال در سایت قرار داده بودی رو به این تاپیک منتقل کردم.
امیدوارم تاپیک روز به روز غنی تر بشه. دوستان دیگه هم میتونن کمک کنن.
سلام دوستان
با اين سورس يك عكس رو به تعداد زيادي در فرم مشاهده كنيد:
با اين سورس يك زلزله براي كامپيوترتون ايجاد كنيد اين سورس يك زلزله 5 ريشتري رو براي كامپيوترتون ايجاد ميكنه فقط مواظب باشيد كه قبل از اجرا در يك جاي امن پناه بگيريد كه آسيب نبينيد ! :