VİSUAL BASİC te resim açma programı

ARKADASLAR VİSUAL  BASİC te resim açma programı LAZIM BILEN VARSA LUTFEN YARDIM ETSINN SIMDIDEN TESEKKURLER..

arkadaşım commondialog kontrolünü kullanarak istediğin bi resmi açabilirsin.

veya aşağıdaki kodları dene
{yeni bir form açın ve aşağıdaki nesneleri ekleyin.
1adet drivelistbox
1adet dirlistbox
1adet filelistbox
1adet textbox
1adet image
2adet button}

Dim i
Private Sub Command1_Click()
If File1.ListCount = 0 Then
MsgBox "bulunduğunuz klasörde resim bulunmamaktadır.."
Else
If i = 0 Then
i = File1.ListCount
Else
i = i - 1
File1.ListIndex = i
End If
End If
End Sub

Private Sub Command2_Click()
If File1.ListCount = 0 Then
MsgBox "bulunduğunuz klasörde resim bulunmamaktadır.."
Else
If File1.ListCount > 1 Then
If i = File1.ListCount - 1 Then
i = 1
Else
i = i + 1
File1.ListIndex = i
End If
End If
End If
End Sub

Private Sub Dir1_Change()
File1.FileName = Dir1.Path

End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Text1.Text = File1.Path + "\" + File1
Image1.Picture = LoadPicture(File1.Path + "\" + File1)
i = File1.ListIndex

End Sub

Private Sub Form_Load()
File1.Pattern = "*.jpg"
File1.Pattern = "*.bmp"
File1.Pattern = "*.BMP"
File1.Pattern = "*.JPG"
i = 1

End Sub

(Alıntıdır)

bir de bu kodraları bir dene

Formumuzda Dir1,Drive1,File1,Option1,Option2,Option3,Option3 adlı nesneleri oluşturun..

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
    Picture1 = LoadPicture(File1.Path & "\" & File1.FileName)
End Sub

Private Sub Form_Load()
    Picture1.AutoSize = True
    Option4.Value = True
End Sub

Private Sub Option1_Click()
    File1.Pattern = Option1.Caption
End Sub

Private Sub Option2_Click()
    File1.Pattern = Option2.Caption
End Sub

Private Sub Option3_Click()
    File1.Pattern = Option3.Caption
End Sub

Private Sub Option4_Click()
    File1.Pattern = Option4.Caption
End Sub
(Alıntıdır)

eğer hiçbiri olmazsa bana özel mesajla msn adresini at. akşam msn'den görüşürüz. commondialog kontrolünü kullanarak başka bi prog. yaparız. (yani yapmaya çalışırız :) )

cok saoll

önemli deil dostum yardım edebileceğim her konuda yardımımı esirgemem sende sağol

Sarhoş kafayla yaptım umarım işine yarar :D:D

sarhoş kafayla bunu yaptına göre ayıkkafayla sen bir dahi olmalısın bilgilerinden bende yararlanmak isterim teşekkürler