ForumTayfa  

Go Back   ForumTayfa > Güvenlik & Bilgisayar & İnternet & Webmaster & Programlama Bölümü > Güvenlik & Bilgisayar & İnternet & Webmaster & Programlama > Programlama

Programlama Programlama hakkında herşeyi paylaştığımız, soru ve sorunlarımızı tartıştığımız bölüm...

Yeni Konu aç  Cevapla
 
LinkBack Seçenekler Stil
Alt 18.06.11, 20:02   #1 (permalink)
Acemi Tayfa
 
resuLL.. - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Jul 2009
Mesaj Sayısı: 445
Konu Sayısı: 31
Rep Gücü: 81365
Rep Puanı: 8135356
Rep Derecesi : resuLL.. 0-9000000resuLL.. 0-9000000resuLL.. 0-9000000resuLL.. 0-9000000resuLL.. 0-9000000resuLL.. 0-9000000resuLL.. 0-9000000resuLL.. 0-9000000resuLL.. 0-9000000resuLL.. 0-9000000resuLL.. 0-9000000
Standart visual basic te slayt yapmak???




arkdşlar ben vb de fotografların oldugu bi slay gösterisi yapmak istiyorum ..
mesela form a bi button ekleyecegim ve button a tıklandıgında yada label farketmez slayt devreye gircek .. bilgisi olan ????


__________________

Acı içinde bekledim tekrar düşmemek için
Korkuyla susmaya çalışarak
Gece sisinin dışında
Acı veren bir öpücük hissettim
Ve dudaklarındaki kızıl lekeyi gördüm
resuLL.. isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 27.06.11, 02:28   #2 (permalink)
Yeni Tayfa
 
kutlucan - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Jun 2011
Mesaj Sayısı: 2
Konu Sayısı: 0
Rep Gücü: 0
Rep Puanı: 10
Rep Derecesi : kutlucan 0-250000
Standart Cevap: visual basic te slayt yapmak???




Drive ,dir ,file nesnelerinin kullanımı resim gösterimi,dosya yolunu bulma, ileri geri kontrolu

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


kutlucan isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 27.06.11, 02:55   #3 (permalink)
Yeni Tayfa
 
kutlucan - ait Kullanıcı Resmi (Avatar)
 
Üyelik Tarihi: Jun 2011
Mesaj Sayısı: 2
Konu Sayısı: 0
Rep Gücü: 0
Rep Puanı: 10
Rep Derecesi : kutlucan 0-250000
Standart Cevap: visual basic te slayt yapmak???




Forma 1 picturebox;2 textbox;9 tane command buton; 1'er adetde dirlistbox, Drivelistbox, Filelistbox; 1'de timer ekleyin ve kodları formun koda kısmına yapıştırın.


Forma 1 picturebox;2 textbox;9 tane command buton; 1'er adetde dirlistbox, Drivelistbox, Filelistbox; 1'de timer ekleyin ve kodları formun koda kısmına yapıştırın
-------------------------------------------------------------------------------------
Dim cevap

Private Sub Command4_Click()
If Timer1.Interval = False Then
cevap = MsgBox("DURDURMA İŞLEMİ SLAYT AKTİF İKEN GERÇEKLEŞİR", 0 + 64, "Slayt Aktif Değil")
Else
Timer1.Interval = False 'SLAYTI DURDUR
End If
End Sub

Private Sub Command5_Click() 'RESMİN NEGATİFİ ALINIR
If File1.ListCount = 0 Then
cevap = MsgBox("BULUNDUĞUZ KLASÖRDE RESİM BULUNMADIĞI İÇİN NEGATİF UYGULANAMIYOR", 0 + 64, "Boş Klasör")
Else
Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &H550009
End If
End Sub

Private Sub Command6_Click() 'ÇIKIŞ
cevap = MsgBox("Programdan Çıkmak İstiyormusunuz ?", vbYesNo + vbQuestion, "Resim Görüntüleyici")
If cevap = vbNo Then
Form1.Show
Else
End
End If
End Sub

Private Sub Command7_Click()
Picture1.PaintPicture Picture1.Picture, Picture1.ScaleWidth, Picture1.ScaleHeight, -Picture1.ScaleWidth, -Picture1.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020
End Sub

Private Sub Command8_Click()
Picture1.PaintPicture Picture1.Picture, Picture1.ScaleWidth, 0, -Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020
End Sub

Private Sub Command9_Click()
If File1.ListCount = 0 Then
cevap = MsgBox("Ölçeklendirilecek Resim Bulunmuyor", 0 + 64, "Resim Yok")
Exit Sub
End If
If Text2 = "" Then
cevap = MsgBox("Değer Girmelisiniz", 0 + 64, "Ölçeklendirilemiyor")
Else
Text2 = Val(Text2)
Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth * Text2 / 100, Picture1.ScaleHeight * Text2 / 100, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, &HCC0020
End If
End Sub

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

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

Private Sub Command1_Click() ' İLERİ BUTONU
If File1.ListCount = 0 Then
cevap = MsgBox("BULUNDUĞUNUZ KLASÖRDE RESİM BULUNMAMAKTADIR", 0 + 64, "Boş Klasör")
End If
If File1.ListIndex < File1.ListCount - 1 Then
File1.ListIndex = File1.ListIndex + 1
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End If
End Sub

Private Sub Command2_Click() ' GERİ BUTONU
If File1.ListCount = 0 Then
cevap = MsgBox("BULUNDUĞUNUZ KLASÖRDE RESİM BULUNMAMAKTADIR", 0 + 64, "Boş Klasör")
End If
If File1.ListIndex > 0 Then
File1.ListIndex = File1.ListIndex - 1
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End If
End Sub

Private Sub Command3_Click() ' SLAYTI BAŞLAT
If File1.ListCount = 0 Then
cevap = MsgBox("BULUNDUĞUNUZ KLASÖRDE RESİM BULUNMADIĞI İÇİN SLAYT GERÇEKLEŞTİRİLEMİYOR", 0 + 64, "Boş Klasör")
Else
Timer1.Interval = 2000
End If
End Sub

Private Sub File1_Click() ' LİSTBOX A TIKLANINCA RESİMLERİN PİCTUREBOX TA GÖRÜNTÜLENMESİ SAĞLANIR
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
Text1.Text = File1.Path + "\" + File1 'RESMİN BULUNDUĞU YERİ TEXTBOX TA GÖSTERİR
Picture1.Picture = LoadPicture(File1.Path + "\" + File1)
End Sub

Private Sub Form_Load()
File1.Pattern = "*.jpg;*.gif;*.bmp;*.ico*.wmf"
If File1.ListCount > 1 Then File1.ListIndex = 0
Label1.Caption = "%"
End Sub

Private Sub Timer1_Timer() ' SLAYTIN BAŞLAMASI VE SLAYT BAŞLADIKTAN SONRA OLACAKLAR
If File1.ListIndex < File1.ListCount - 1 Then
File1.ListIndex = File1.ListIndex + 1
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
End If
If File1.ListIndex = File1.ListCount - 1 Then
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
File1.ListIndex = 0
End If
End Sub


kutlucan isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Visual Basic yardım help!!! mosthunted Programlama 8 03.12.11 02:04
Visual basic 6.0 ShıFтdєLєтє Programlama 0 05.04.09 16:00
Visual Basic İpuçları silentwolf Programlama 3 20.10.08 19:55
SRR Visual Basic KodBank MaStEr Ofis ve İş Programları 1 01.01.08 00:26
Visual Basic Eğitimi MaStEr Programlama 2 01.04.07 12:55


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:32.


Powered by vBulletin® Version 3.8.0
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO 3.6.0
User Alert System provided by Advanced User Tagging v3.0.6 (Lite) - vBulletin Mods & Addons Copyright © 2020 DragonByte Technologies Ltd.
ForumTayfa

Arşiv: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 16 22 23 24 25 26 27 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 95 96 97 98 99 100 102 103 104 105 106 155 156 157 158 159 160 161 162 163 164 167 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271


ForumTayfa - Link Değişimi
Telinka İletişim | Voip Ürünleri | Link Değişimine Katılın |

Sitemiz bir forum sitesi olduğundan dolayı, kullanıcılar her türlü görüşlerini önceden onay olmadan anında siteye yazabilmektedir. ForumTayfa Yöneticileri mesajları itina ile kontrol etse de, bu yazılardan dolayı doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Yine de sitemizde yasalara aykırı unsurlar bulursanız [email protected] email adresine bildirebilirsiniz, şikayetiniz incelendikten sonra en kısa sürede gereken yapılacaktır.

Any member of our web site has the right of adding comments instantly without getting permisson due to the forum structure of our site basis. Althought, our site modarators check comments with care, all the responsibilities sourced from these comments directly belong to the members. If you still find any illegal content in our site ( A.buse, H.arassment, S.camming, H.acking, W.arez, C.rack, D.ivx, Mp.3 or any Illegal Activity ), please report us via [email protected] .Your reports will be evaluated as soon as the arrival of your e-mail.