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

sonvurgun
06-05-2007, 21:36   |  #1  
OP Yeni Üye
Teşekkür Sayısı: 0
22 mesaj
Kayıt Tarihi:Kayıt: Nis 2007

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

mustafa-k
07-05-2007, 09:13   |  #2  
Yıllanmış Üye
Teşekkür Sayısı: 0
365 mesaj
Kayıt Tarihi:Kayıt: Şub 2007

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

mustafa-k
07-05-2007, 09:16   |  #3  
Yıllanmış Üye
Teşekkür Sayısı: 0
365 mesaj
Kayıt Tarihi:Kayıt: Şub 2007

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)

mustafa-k
07-05-2007, 09:18   |  #4  
Yıllanmış Üye
Teşekkür Sayısı: 0
365 mesaj
Kayıt Tarihi:Kayıt: Şub 2007

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)

mustafa-k
07-05-2007, 09:23   |  #5  
Yıllanmış Üye
Teşekkür Sayısı: 0
365 mesaj
Kayıt Tarihi:Kayıt: Şub 2007

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 :) )

sonvurgun
08-05-2007, 17:16   |  #6  
OP Yeni Üye
Teşekkür Sayısı: 0
22 mesaj
Kayıt Tarihi:Kayıt: Nis 2007

cok saoll

mustafa-k
08-05-2007, 17:45   |  #7  
Yıllanmış Üye
Teşekkür Sayısı: 0
365 mesaj
Kayıt Tarihi:Kayıt: Şub 2007

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

erayera
09-05-2007, 03:43   |  #8  
Yeni Üye
Teşekkür Sayısı: 0
23 mesaj
Kayıt Tarihi:Kayıt: Mar 2007

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


toonami
26-10-2007, 17:33   |  #9  
Yıllanmış Üye
Teşekkür Sayısı: 0
120 mesaj
Kayıt Tarihi:Kayıt: Nis 2007

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