PM ne bakıver bi zahmet...

eline sağlık güzellll ;

CoDeSoLvE kardeş visual basic ile program yapıyosun ya onu demek istedim bi zahmet visual basic form u verirmisin?

evet aynen dusundugun gibi kardes program bununla yazılıyor? FORM BU YANI...

eywallah arkadaslar saolun beğendiğiniz için sevindim...

Güzel bir efekt olacağına eminim Bunları denemedim ama 1 timer ve for next döngüsüyle daha kolay olur sanırım. Yinede bir işi farklı yollarla yapabilmek gerekir güzel çalışma + karma

hmm çok saol kardeşşş süpersin sen

CoDeSoLvE arkadaşım bana from u gönderebilirmisin bi zahmett eğer warsaa lütfen gönder ya

Küçülerek kapanan form yapmak için ; Formunuza 1 adet modul ekleyin... nasıl ekleniyor diyosanız project penceresinde formun uzerine sağ tıklayın add ve moduleye tıklayın sonra aşağıdakileri modüle yapıstırın... #If Win16 Then Type RECT Left As Integer Top As Integer Right As Integer Bottom As Integer End Type #Else Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type #End If #If Win16 Then Declare Sub GetWindowRect Lib "User" Declare Function GetDC Lib "User" As Integer Declare Function ReleaseDC Lib "User" As Integer Declare Sub SetBkColor Lib "GDI" Declare Sub Rectangle Lib "GDI" (ByVal hdc As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) Declare Function CreateSolidBrush Lib "GDI" As Integer Declare Function SelectObject Lib "GDI" As Integer Declare Sub DeleteObject Lib "GDI" #Else Declare Function GetWindowRect Lib "user32" As Long Declare Function GetDC Lib "user32" As Long Declare Function ReleaseDC Lib "user32" As Long Declare Function SetBkColor Lib "gdi32" As Long Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Declare Function CreateSolidBrush Lib "gdi32" As Long Declare Function SelectObject Lib "user32" As Long Declare Function DeleteObject Lib "gdi32" As Long #End If Sub ExplodeForm Dim myRect As RECT Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy% Dim TheScreen As Long Dim Brush As Long GetWindowRect f. hwnd, myRect formWidth = formHeight = myRect. Bottom - myRect. Top TheScreen = GetDC(0) Brush = CreateSolidBrush For i = 1 To Movement Cx = formWidth Cy = formHeight X = myRect. Left + / 2 Y = myRect. Top + / 2 Rectangle TheScreen, X, Y, X + Cx, Y + Cy Next i X = ReleaseDC(0, TheScreen) DeleteObject End Sub Public Sub ImplodeForm Dim myRect As RECT Dim formWidth%, formHeight%, i%, X%, Y%, Cx%, Cy% Dim TheScreen As Long Dim Brush As Long GetWindowRect f. hwnd, myRect formWidth = formHeight = myRect. Bottom - myRect. Top TheScreen = GetDC(0) Brush = CreateSolidBrush For i = Movement To 1 Step -1 Cx = formWidth Cy = formHeight X = myRect. Left + / 2 Y = myRect. Top + / 2 Rectangle TheScreen, X, Y, X + Cx, Y + Cy Next i X = ReleaseDC(0, TheScreen) DeleteObject End Sub Bunlarında Formun kod kısmına yapıştırın... Private Sub Command1_Click 'Aşağıdaki rakamı değiştirebilirsiniz Call ImplodeForm(Me, 5000) End Set Form1 = Nothing End Sub Private Sub Form_Load 'Aşağıdaki rakamı değiştirebilirsiniz Call ExplodeForm(Me, 5000) End Sub Private Sub Form_QueryUnload 'Aşağıdaki rakamı değiştirebilirsiniz Call ImplodeForm(Me, 5000) End Sub İŞTE BU KADAR Kolay Gelsin

saol kardeşş adamımsın program bununla yazılıyor dimi?

walla çok sağol denemedim ama en kısa zamanda deniyeceğim +karma

Ronaldinhoo kardeşim form derken ne demek istediğini pek anlayamadım VB ile program yapıyosunya demişsin... VB formu zaten VB 6.0 ın içinde oluyo yanı form o _? sen VB nin hangı surumunu kullanıyosun herhalde senin VB formsuz VB saka bi yana herhalde sen VB 6.0 ı arıyosun japon arkadasımın verdiği bir link var... burdan download edebilirsin? http://www.wardom.org/forum/showthread. php?t=85924 Kolay Gelsin...