بهترين سورسهاي ويژوال بيسيك 6

[VisualBasic6Love]

سلام به رفقاي عزيز و خوب عشق وي بي 6
اميدوارم حالتون خوب باشه
خوب ديگه بريم سر اصل مطلب
خوب دوستان من تصميم گرفتم كه يك تاپيك بزنم و سورسها رو در اينجا بگذارم
اولين سورس يه سورس افكت ورود و خروج از فرم هست كه خيلي زيباست!
دومین سورس هم كه خيلي مبتديه ولي بد نيست!
اين سورس پرچم كشور ايرانه!

[VisualBasic6Love]

سلام دوستان
با اين كد ميتوانيد متن سه بعدي ايجاد كنيد:

کد 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 


[VisualBasic6Love]

سلام دوستان
با اين كد ساده شما ميتوانيد فايلهاي با پسوند 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 


[VisualBasic6Love]

سلام دوستان
با اين كد هنگام خروج از فرم يك انيميشن زيبا را ببينيد:

کد 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 


[VisualBasic6Love]

سلام دوستان
با اين سورس چند افكت زيبا هنگام خروج از فرم رو مشاهده كنيد:

[VisualBasic6Love]

سلام دوستان
با اين كد يك متن با رنگهاي زيبا ايجاد كنيد:

کد:

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

[VisualBasic6Love]

سلام دوستان
با اين كد ميتوانيد يك عكس را برعكس كنيد:
دو تا پيكچر باكس و يك كامند باتن به فرم اضافه كنيد و يك عكس به دو تا پيكچر باكس اضافه كنيد و كد زير را وارد كنيد:

کد:

'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

[dreamvbfox]

بیکار بودم گفتم سورس این برنامه رو بزارم !!!

[Payman62]

سلام.
VisualBasic6Love اگه یه تاپیک ایجاد کنی به نام سورس های ویژوال بیسیک و سورس هاتو با نام و عنوان داخل اون تاپیک قرار بدی تا همه یه جا جمع شن بهتره. تاپیک رو بزن من سورس هاتو انتقال میدم داخل تاپیک.

-----------------------------------------------------------------

دوباره سلام.
خوب جناب VisualBasic6Love تاپیک رو زدی.
همون طور که گفته بودم تمامی سورس ها و کدهایی که تا به حال در سایت قرار داده بودی رو به این تاپیک منتقل کردم.
امیدوارم تاپیک روز به روز غنی تر بشه. دوستان دیگه هم میتونن کمک کنن.

[VisualBasic6Love]

سلام دوستان
با اين سورس يك عكس رو به تعداد زيادي در فرم مشاهده كنيد:

---

با اين سورس يك زلزله براي كامپيوترتون ايجاد كنيد اين سورس يك زلزله 5 ريشتري رو براي كامپيوترتون ايجاد ميكنه فقط مواظب باشيد كه قبل از اجرا در يك جاي امن پناه بگيريد كه آسيب نبينيد ! :

[yeketaz]

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

http://forum.iranled.com/showthread.php?tid=6904

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