Articles by "yazılı dersler"
yazılı dersler etiketine sahip kayıtlar gösteriliyor. Tüm kayıtları göster

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
CPU Sıcaklığını Öğrenme

Merhaba arkadaşlar, 

Bu dersimizde system.management ile CPU sıcaklığını ölçmeyi öğreneceğiz.

İlk önce Projeye solution dan sağ tıklayıp; 

Add Reference -> .NET | System.Management çift tıklayarak ekliyoruz.
en başa:

Imports System.Management


Try Dim searcher As New ManagementObjectSearcher("rootWMI", "SELECT * FROM MSAcpi_ThermalZoneTemperature") For Each queryObj As ManagementObject In searcher.Get() Dim sicak As Double = CDbl(queryObj("CurrentTemperature")) sicak = (sicak - 2732) / 10.0 Text = sicak.ToString & " °C" ' Başlıkta gösteriyoruz Next Catch MsgBox "CPU sıcaklığı okunamıyor !" End Try



Kolay Gelsim
Continue reading
no image

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Bu derste bilgisayar mikrofonunu kullanarak winmm.dll APIsi ile ses kaydetmeyi öğrenelim.


Imports System.Runtime.InteropServices
        <DllImport("winmm.dll", EntryPoint:="mciSendStringA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
        Private Shared Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
        End Function
    Public Sub Kaydedici(ByVal islem As String, ByVal path As String, ByVal isim As String)
        If islem = "baslat" Then
            mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
            mciSendString("record recsound", "", 0, 0)
        ElseIf islem = "bitir" Then
            mciSendString("save recsound " & path & "/" & isim & ".wav", "", 0, 0)
            mciSendString("close recsound ", "", 0, 0)
        End If
    End Sub

Kaydı başlat kodu:
Kaydedici("baslat","","")

Kaydet ve bitir kodu :
Kaydedici("bitir","C:","ses_kaydi")


Continue reading
no image

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..

Çaldımız Müziği Listeye Eklemek



Bu dersimizde bir müzik çalarda çaldığımız müziği combobox'a liste olarak ekliyoruz. Combobox'tan seçtiğimizde o müzik açılacaktır.

Eklenecekler: 
  • 1 adet medi player
  • 1 adet openfiledialog
  • 1 adet button
  • 1 adet combobox




Dim metin1, metin2, aranan As String
        metin1 = TextBox1.Text
        metin2 = TextBox2.Text
        aranan = String.Compare(metin1, metin2)
        ListBox1.Items.Add(aranan)


Continue reading
no image

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..

Visual Basic'te Arama
Visual Basic'te metin içerisinde aramayı öğrenelim.

2 textbox, 1 button, 1 listbox. 1 çıkarsa var, 0 çıkarsa hepsi var. Buttona yapıştırıyoruz:

Dim metin1, metin2, aranan As String
        metin1 = TextBox1.Text
        metin2 = TextBox2.Text
        aranan = String.Compare(metin1, metin2)
        ListBox1.Items.Add(aranan)


Kolay Gelsin

Continue reading

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..


VB İle XML Kullanımı
Merhaba arkadaşlar,

Bu dersimizde VB ile XML dosyaları üzerinde işlem yapmayı anlatacağım.

Kullanacağımız namespace:
Imports System.Xml

Controls:

ListBox : ListBox1

XML Kullanımı :

Dim icerik As New Xml.XmlDocument
icerik.Load("C:Verilerbelge.xml")
Dim r = icerik.GetElementByTagName("item")
For i = 0 To icerik.Count - 1
            ListBox1.Items.Add(r(i).InnerText)
Next

VB.NET ile kodu yazdığınızda içerik. yazarken . (nokta) yazınca kod listesi açılır. XmlDocument'in tüm property ve metodlarını görebilirsiniz. Bu örnek ile xml'den veri okuyoruz.

belge.xml :

<?xml version="1.0" encoding="ISO-8859-9"?>
<data>
 <item id="Item 1">Birinci Veri</item>
 <item id="Item 2">İkinci Veri</item>
</data>

Kolay Gelsin

Continue reading

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..

 Açıklama: Eşleşen tüm bağlantıları serbest bırakır. Yani internet bağlantısını keser ...


Shell "ipconfig /release"


Tüm Bağlantıları Yeniler. Tekrar ip adresi alıp internete bağlar..
Shell "ipconfig /renew"
Continue reading

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
<!---vbdersleri.tr.gg kod başlangıc--->mciexecute("set cdaudio dorr open") bu açma 

mciexecute("set cdaudio dorr closed") bu kapamasalih biniciniğde 

<SCRIPT LANGUAGE="JavaScript">
<!--
Code0 = "%3Cp%3E%3Cfont%20size%3D%221%22%3E%3Cspan%20style%3D%22background-color%3A%20%23FFFFFF%22%3E%0D%0A%3Ca%20href%3D%22http%3A//www.vbdersleri.tr.gg/%22%3ESitene%20Ekle%3C/a%3E%3C/span%3E%3C/font%3E%3C/p%3E";
document.write(unescape(Code0));
//-->
</SCRIPT>
<!---vbdersleri.tr.gg kod bitişi--->
Continue reading
no image

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Açıklama: Command butonları sayıya göre değil biraz zorlanabilirsiniz..

<!---vbdersleri.tr.gg kod başlangıc--->Dim sonuc As Integer 

Dim secim As Integer 



Private Sub Command1_Click() 

Text1.Text = Text1.Text + "0" 

End Sub 



Private Sub Command10_Click() 

Text1.Text = Text1.Text + "3" 

End Sub 



Private Sub Command11_Click() 

Text1.Text = Text1.Text + "5" 

End Sub 



Private Sub Command12_Click() 

Text1.Text = Text1.Text + "4" 

End Sub 



Private Sub Command13_Click() 

Text1.Text = Text1.Text + "6" 

End Sub 



Private Sub Command14_Click() 

Text1.Text = Text1.Text + "9" 

End Sub 



Private Sub Command15_Click() 

Text1.Text = Text1.Text + "8" 

End Sub 



Private Sub Command16_Click() 



If secim = 1 Then 

sonuc = sonuc + Val(Text1.Text) 

End If 

If secim = 2 Then 

sonuc = sonuc - Val(Text1.Text) 

End If 

If secim = 3 Then 

sonuc = sonuc * Val(Text1.Text) 

End If 

If secim = 4 Then 

sonuc = sonuc / Val(Text1.Text) 

End If 

Text1.Text = "" 



Text1.Text = sonuc 



End Sub 



Private Sub Command17_Click() 

sonuc = 0 

secim = 0 

Text1.Text = "" 

End Sub 



Private Sub Command2_Click() 

Text1.Text = "" 

End Sub 



Private Sub Command3_Click() 

sonuc = Val(Text1.Text) 

Text1.Text = "" 

secim = 1 

End Sub 



Private Sub Command4_Click() 

sonuc = Val(Text1.Text) 

Text1.Text = "" 

secim = 2 

End Sub 



Private Sub Command5_Click() 

sonuc = Val(Text1.Text) 

Text1.Text = "" 

secim = 3 

End Sub 



Private Sub Command6_Click() 

sonuc = Val(Text1.Text) 

Text1.Text = "" 

secim = 4 

End Sub 



Private Sub Command7_Click() 

Text1.Text = Text1.Text + "1" 

End Sub 



Private Sub Command8_Click() 

Text1.Text = Text1.Text + "2" 

End Sub 



Private Sub Command9_Click() 

Text1.Text = Text1.Text + "7" 

End Sub 



Private Sub Form_Load() 



End Sub 

<SCRIPT LANGUAGE="JavaScript">
<!--
Code0 = "%3Cp%3E%3Cfont%20size%3D%221%22%3E%3Cspan%20style%3D%22background-color%3A%20%23FFFFFF%22%3E%0D%0A%3Ca%20href%3D%22http%3A//www.vbdersleri.tr.gg/%22%3ESitene%20Ekle%3C/a%3E%3C/span%3E%3C/font%3E%3C/p%3E";
document.write(unescape(Code0));
//-->
</SCRIPT>
<!---vbdersleri.tr.gg kod bitişi--->
Continue reading

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Merhaba arkadaşlar!
Bu dersimizde Visual Basic'te ekrana mesaj yazdırmayı öğreneceğiz. Yani Visual Basic'te akrana istediğimiz yazıyı yazdırmayı öğreneceğiz.
 Öncelikle Visual Basic'i çalıştırıp bomboş tertemiz bir alan açın. Sonra fomra 1 adet "Button" ve 1 adet "TextBox" ekleyin.  
 Sonra bunları güzel bir şekilde formunuza dizin.
 Sonra butona bir isim verelim. Butonun adı şimdilik "Göster" siz isterseniz başka bir isim koyabilirsiniz.
 Sonra Butona çift tıklayın.Kodları Private Sub.... ve End Sub'ın arasına yazın.
MessageBox.Show (TextBox1.Text)
yazın.
 Örneğin TextBox'a adımızı yazdığımızda bize "Merhaba" şeklinde hitap etmesini (örneğin: TextBox'a esentepeli yazdığımızda Göster butonuna tıkladığımızda bize Merhaba esentepeli diye bir yazı çıkar)isterseniz aşağıdaki kod işinizi görür.
MessageBox.Show ("Merhaba "+TextBox1.Text)

Kolay Gelsin 
Continue reading
no image

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..

Formunuza yanıp sönen bir Label ekleyebilirsiniz.
Private Sub Command1_Click(]
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbBlue
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbGreen
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single]
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbBlue
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbGreen
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
End Sub
Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single]
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbBlue
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbGreen
For X = 1 To 5000: DoEvents: Next X
label1.ForeColor = vbRed

Kolay Gelsin.. 


Continue reading
no image

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Bu  kod ile formunuzu titretebilirsiniz.
Private Sub Form_Load(]
Timer1.Interval = 22
End Sub
Private Sub Timer1_Timer(]
Form1.Top = Form1.Top + 50
Form1.Top = Form1.Top - 50
Form1.Left = Form1.Left - 50
Form1.Left = Form1.Top + 50
End Sub
Kolay Gelsin 

Continue reading
no image

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Formunuza güzel bir ekran koruyucu koyabilirsiniz.
Public Sub drawcircle(]
Dim red As Integer 'declare all varibles
Dim blue As Integer
Dim green As Integer
Dim xPos As Integer
Dim yPos As Integer
red = 255 * Rnd 'randomize red color
blue = 255 * Rnd 'randomize blue color
green = 255 * Rnd 'randomize green color
xPos = ScaleWidth / 2
yPos = ScaleHeight / 2
radius = ((yPos * 0.99] + 1] * Rnd
Circle (xPos, yPos], radius, RGB(red, blue, green]
End Sub
Private Sub Timer1_Timer(]
Call drawcircle
End Sub

Kolay Gelsin. 

Continue reading
no image

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Bu kodla formunuzun ekranını kaydırabilirsiniz...

Private Sub Command1_Click(]
Do Until Form1.Top = Screen.Height
Form1.Top = Form1.Top + 1
Loop
Unload Me
End Sub
Kolay Gelsin... 
Continue reading

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Bu kod sayesinde İnternet'e bağlı olup olmadığımız öğrenilir.

Option Explicit
Private Declare Function RasEnumConnections Lib "RasApi32.dll" _
Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As _
Long, lpcConnections As Long] As Long
Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" _
Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, _
lpStatus As Any] As Long
Const RAS_MaxEntryName = 256
Const RAS_MaxDeviceType = 16
Const RAS_MaxDeviceName = 32
Private Type RASType
dwSize As Long
hRasCon As Long
szEntryName(RAS_MaxEntryName] As Byte
szDeviceType(RAS_MaxDeviceType] As Byte
szDeviceName(RAS_MaxDeviceName] As Byte
End Type
Private Type RASStatusType
dwSize As Long
RasConnState As Long
dwError As Long
szDeviceType(RAS_MaxDeviceType] As Byte
szDeviceName(RAS_MaxDeviceName] As Byte
End Type
Private Sub Form_Load(]
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer(]
DFÜStatus
End Sub
Private Function DFÜStatus(] As Boolean
Dim RAS(255] As RASType, RASStatus As RASStatusType
Dim lg&, lpcon&, Result&
RAS(0].dwSize = 412
lg = 256 * RAS(0].dwSize
Result = RasEnumConnections(RAS(0], lg, lpcon]
If lpcon = 0 Then
Label1.Caption = "Offline" '###
DFÜStatus = False
Else
RASStatus.dwSize = 160
Result = RasGetConnectStatus(RAS(0].hRasCon, RASStatus]
If RASStatus.RasConnState = &H2000 Then
Label1.Caption = "Online" '###
DFÜStatus = True
Else
Label1.Caption = "Baglanti Kopuk" '###
DFÜStatus = False
End If
End If
End Function 

Continue reading

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
Index'li tane 9 tane combobox ekleyelim
Toplamlar için 6 adet label ekleyelim
Form'un gözükmeyen kısmına 1 adet listbox ekleyelim
Dim i, a, b As Integer
Private Sub Combo1_click(Index As Integer)
If Index = 0 Then
Label1 = Val(Combo1(0).Text) + Val(Combo1(1).Text) + Val(Combo1(2).Text)
For i = 0 To List1.ListCount - 1
  If Combo1(0).Text = List1.List(i) Then
  Combo1(i).Text = " "
  List1.List(i) = " "
  End If
Next i
List1.List(0) = Combo1(0).Text

ElseIf Index = 1 Then
Label1 = Val(Combo1(0).Text) + Val(Combo1(1).Text) + Val(Combo1(2).Text)
For i = 0 To List1.ListCount - 1
  If Combo1(1).Text = List1.List(i) Then
  Combo1(i).Text = " "
  List1.List(i) = " "
  End If
Next i
List1.List(1) = Combo1(1).Text

ElseIf Index = 2 Then
Label1 = Val(Combo1(0).Text) + Val(Combo1(1).Text) + Val(Combo1(2).Text)
For i = 0 To List1.ListCount - 1
  If Combo1(2).Text = List1.List(i) Then
  Combo1(i).Text = " "
  List1.List(i) = " "
  End If
Next i
List1.List(2) = Combo1(2).Text
End If

If Index = 3 Then
Label2 = Val(Combo1(3).Text) + Val(Combo1(4).Text) + Val(Combo1(5).Text)

For i = 0 To List1.ListCount - 1
  If Combo1(3).Text = List1.List(i) Then
  Combo1(i).Text = " "
  List1.List(i) = " "
  End If
Next i
List1.List(3) = Combo1(3).Text

ElseIf Index = 4 Then
Label2 = Val(Combo1(3).Text) + Val(Combo1(4).Text) + Val(Combo1(5).Text)
For i = 0 To List1.ListCount - 1
  If Combo1(4).Text = List1.List(i) Then
  Combo1(i).Text = " "
  List1.List(i) = " "
  End If
Next i
List1.List(4) = Combo1(4).Text

ElseIf Index = 5 Then
Label2 = Val(Combo1(3).Text) + Val(Combo1(4).Text) + Val(Combo1(5).Text)
For i = 0 To List1.ListCount - 1
  If Combo1(5).Text = List1.List(i) Then
  Combo1(i).Text = " "
  List1.List(i) = " "
  End If
Next i
List1.List(5) = Combo1(5).Text

End If

If Index = 6 Then
Label3 = Val(Combo1(6).Text) + Val(Combo1(7).Text) + Val(Combo1(8).Text)
For i = 0 To List1.ListCount - 1
  If Combo1(6).Text = List1.List(i) Then
  Combo1(i).Text = " "
  List1.List(i) = " "
  End If
Next i
List1.List(6) = Combo1(6).Text

ElseIf Index = 7 Then
Label3 = Val(Combo1(6).Text) + Val(Combo1(7).Text) + Val(Combo1(8).Text)
For i = 0 To List1.ListCount - 1
  If Combo1(7).Text = List1.List(i) Then
  Combo1(i).Text = " "
  List1.List(i) = " "
  End If
Next i
List1.List(7) = Combo1(7).Text

ElseIf Index = 8 Then
Label3 = Val(Combo1(6).Text) + Val(Combo1(7).Text) + Val(Combo1(8).Text)
For i = 0 To List1.ListCount - 1
  If Combo1(8).Text = List1.List(i) Then
  Combo1(i).Text = " "
  List1.List(i) = " "
  End If
Next i
List1.List(8) = Combo1(8).Text
End If

If Index = 0 Then
Label4 = Val(Combo1(0).Text) + Val(Combo1(3).Text) + Val(Combo1(6).Text)
ElseIf Index = 3 Then
Label4 = Val(Combo1(0).Text) + Val(Combo1(3).Text) + Val(Combo1(6).Text)
ElseIf Index = 6 Then
Label4 = Val(Combo1(0).Text) + Val(Combo1(3).Text) + Val(Combo1(6).Text)
End If

If Index = 1 Then
Label5 = Val(Combo1(1).Text) + Val(Combo1(4).Text) + Val(Combo1(7).Text)
ElseIf Index = 4 Then
Label5 = Val(Combo1(1).Text) + Val(Combo1(4).Text) + Val(Combo1(7).Text)
ElseIf Index = 7 Then
Label5 = Val(Combo1(1).Text) + Val(Combo1(4).Text) + Val(Combo1(7).Text)
End If

If Index = 2 Then
Label6 = Val(Combo1(2).Text) + Val(Combo1(5).Text) + Val(Combo1(8).Text)
ElseIf Index = 5 Then
Label6 = Val(Combo1(2).Text) + Val(Combo1(5).Text) + Val(Combo1(8).Text)
ElseIf Index = 8 Then
Label6 = Val(Combo1(2).Text) + Val(Combo1(5).Text) + Val(Combo1(8).Text)
End If

Label1 = Val(Combo1(0).Text) + Val(Combo1(1).Text) + Val(Combo1(2).Text)
Label2 = Val(Combo1(3).Text) + Val(Combo1(4).Text) + Val(Combo1(5).Text)
Label3 = Val(Combo1(6).Text) + Val(Combo1(7).Text) + Val(Combo1(8).Text)
Label4 = Val(Combo1(0).Text) + Val(Combo1(3).Text) + Val(Combo1(6).Text)
Label5 = Val(Combo1(1).Text) + Val(Combo1(4).Text) + Val(Combo1(7).Text)
Label6 = Val(Combo1(2).Text) + Val(Combo1(5).Text) + Val(Combo1(8).Text)
End Sub
Private Sub Form_Load()
For a = 0 To 8
For i = 1 To 9
Combo1(a).AddItem i
Next i
Next a
List1.AddItem " "
List1.AddItem " "
List1.AddItem " "
List1.AddItem " "
List1.AddItem " "
List1.AddItem " "
List1.AddItem " "
List1.AddItem " "
List1.AddItem " "
End Sub

Private Sub Label1_Change()
If Val(Label1) = 15 Then
Label1.BackColor = vbBlue
Label1.ForeColor = vbYellow
Else
Label1.BackColor = vbRed
Label1.ForeColor = vbYellow
End If
End Sub
Private Sub Label2_Change()
If Val(Label2) = 15 Then
Label2.BackColor = vbBlue
Label2.ForeColor = vbYellow
Else
Label2.BackColor = vbRed
Label2.ForeColor = vbYellow
End If
End Sub
Private Sub Label3_Change()
If Val(Label3) = 15 Then
Label3.BackColor = vbBlue
Label3.ForeColor = vbYellow
Else
Label3.BackColor = vbRed
Label3.ForeColor = vbYellow
End If
End Sub
Private Sub Label4_Change()
If Val(Label4) = 15 Then
Label4.BackColor = vbBlue
Label4.ForeColor = vbYellow
Else
Label4.BackColor = vbRed
Label4.ForeColor = vbYellow
End If
End Sub
Private Sub Label5_Change()
If Val(Label5) = 15 Then
Label5.BackColor = vbBlue
Label5.ForeColor = vbYellow
Else
Label5.BackColor = vbRed
Label5.ForeColor = vbYellow
End If
End Sub
Private Sub Label6_Change()
If Val(Label6) = 15 Then
Label6.BackColor = vbBlue
Label6.ForeColor = vbYellow
Else
Label6.BackColor = vbRed
Label6.ForeColor = vbYellow
End If
End Sub
Continue reading
no image

zaman: 0
En yeni konular, en gücel haberler. En son çıkan internet haberleri. Oyun haberleri. Hepsi webtegez.blogspot.com'da..
2 tane button yapıştırın kodlar aşağıdadır. Hata yok. 


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
        Timer1.Interval = 1000
        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
        OpenFileDialog1.ShowHelp = True
        OpenFileDialog1.Filter = "Resimler|*.GIF;*.BMP;*.JPG;*.WMF;*.PNG;*.ICO"
        OpenFileDialog1.Title = "Gösterilecek Resimleri Seçiniz"
        OpenFileDialog1.Multiselect = True
        OpenFileDialog2.ShowHelp = True
        OpenFileDialog2.Filter = "Geçici dosyalar|*.TMP;*.~*;~*.*|" & _
                           "Bütün dosyalar|*.*"
        OpenFileDialog2.Title = "Sileceğniz Dosyaları Seçiniz"
        OpenFileDialog2.Multiselect = True
        OpenFileDialog2.ShowReadOnly = True 

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Timer1.Enabled = True
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If OpenFileDialog2.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim c As DialogResult
            c = MsgBox("Dikkat! Seçtiğiniz bütün dosyalar silinecek", _
                     MsgBoxStyle.Critical + MsgBoxStyle.OkCancel + MsgBoxStyle.DefaultButton2, _
                     "Dikkat")
            If c = Windows.Forms.DialogResult.OK Then
                Dim i
                For i = 0 To OpenFileDialog2.FileNames.Length - 1
                    Try
                        Kill(OpenFileDialog2.FileNames(i))
                    Catch
                        MsgBox(OpenFileDialog2.FileNames(i) & " Bu dosya silinemedi")
                    End Try
                Next
            End If
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static i
        i += 1
        i = i Mod OpenFileDialog1.FileNames.Length()
        Try
            PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileNames(i))
            Me.Text = OpenFileDialog1.FileNames(i)
        Catch
            Me.Text = OpenFileDialog1.FileNames(i) & " dosyası geçersiz"
        End Try
    End Sub

    Private Sub OpenFileDialog1_HelpRequest(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenFileDialog1.HelpRequest
        MsgBox("Gösterilecek resimleri seçiniz. Birden fazla resmi seçmek için Shift veya Ctrl tuşlarını basılı tutunuz")
    End Sub

    Private Sub OpenFileDialog2_HelpRequest(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenFileDialog2.HelpRequest
        MsgBox("Silinecek dosyaları seçiniz. Birden fazla resmi seçmek için Shift veya Ctrl tuşlarını basılı tutunuz")
    End Sub
Continue reading
Kaydol: Kayıtlar (Atom)