Butona tıklayınca ProgressBar Dolsun

GEREKENLER

2 TANE BUTTON

TİMER

PROGRESS BAR

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(2)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
        End If
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Process.Start("chrome.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("iexplore.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("browser.exe", "http://www.visualbasicdersleri.com/")
    End Sub
End Class

Devamını Oku

Görev yöneticisini Timer ile Kapatma

Görev yöneticisini Timer ile Kapatma  VB.NET

Kodu direk Code bölümüne yapıştırın.

Public Class Form1
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Int32

    Declare Function sendMessage Lib "USER32" Alias "SendMessageA" ( _
        ByVal hWnd As Int32, ByVal Msg As Int32, _
        ByVal wParam As Int32, ByVal lParam As Int32) As Int32
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim hwnd As Int32
        hwnd = FindWindow("#32770", vbNullString)
        SendMessage(hwnd, &H10, 0, 0)
    End Sub
End Class

Devamını Oku

Ekranı Kilitle

Ekranı Kilitleme Programı

Ekranı kilitleme programı,önce Gözattan .exe rastgele bir dosya seçilir.

daha sonra texte şifre girilir.

şifre girildikten sonra Etkinleştir e basılır.

ekran kilitlenir hiç bir yere girmesine program izin vermez.

görev yöneticisine girmesine bile izin vermemektir.

acmak için ise f12 basıp şifre girmek zorundasınız.

aksi taktirde yeniden başlatırsınız.

Ekranı Kilitleme Programı

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS : www.visualbasicdersleri.com

KAYNAK: http://eraslancemil.blogspot.com.tr/

Devamını Oku

Ekran Çözünürlüğünü değiştirme

Ekran Çözünürlüğünü değiştirme

1366x768 Önerilen Çözünürlük

1024x768 Değiştirilen Çözünürlük

EKLENECEKLER:

2 TEXBOX

1 BUTTON

Imports System.Runtime.InteropServices 'WWW.VİSUALBASİCDERSLERİ.COM
Public Class Form1
    Const ENUM_CURRENT_SETTINGS As Integer = -1
    Const CDS_UPDATEREGISTRY As Integer = &H1
    Const CDS_TEST As Long = &H2

    Const CCDEVICENAME As Integer = 32
    Const CCFORMNAME As Integer = 32

    Const DISP_CHANGE_SUCCESSFUL As Integer = 0
    Const DISP_CHANGE_RESTART As Integer = 1
    Const DISP_CHANGE_FAILED As Integer = -1

    Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Integer
    Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (ByRef DEVMODE As DEVMODE, ByVal flags As Integer) As Integer 'WWW.VİSUALBASİCDERSLERİ.COM

    <StructLayout(LayoutKind.Sequential)> Public Structure DEVMODE
        <MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCDEVICENAME)> Public dmDeviceName As String
        Public dmSpecVersion As Short
        Public dmDriverVersion As Short
        Public dmSize As Short
        Public dmDriverExtra As Short
        Public dmFields As Integer 'WWW.VİSUALBASİCDERSLERİ.COM
        Public dmOrientation As Short
        Public dmPaperSize As Short
        Public dmPaperLength As Short
        Public dmPaperWidth As Short
        Public dmScale As Short
        Public dmCopies As Short
        Public dmDefaultSource As Short
        Public dmPrintQuality As Short
        Public dmColor As Short
        Public dmDuplex As Short
        Public dmYResolution As Short
        Public dmTTOption As Short
        Public dmCollate As Short
        <MarshalAsAttribute(UnmanagedType.ByValTStr, SizeConst:=CCFORMNAME)> Public dmFormName As String 'WWW.VİSUALBASİCDERSLERİ.COM
        Public dmUnusedPadding As Short
        Public dmBitsPerPel As Short
        Public dmPelsWidth As Integer
        Public dmPelsHeight As Integer
        Public dmDisplayFlags As Integer
        Public dmDisplayFrequency As Integer
    End Structure

    Public Sub CozunurlukDegistir(ByVal theWidth As Integer, ByVal theHeight As Integer)

        Dim DevM As DEVMODE

        DevM.dmDeviceName = New [String](New Char(32) {})
        DevM.dmFormName = New [String](New Char(32) {})
        DevM.dmSize = CShort(Marshal.SizeOf(GetType(DEVMODE)))


        If 0 <> EnumDisplaySettings(Nothing, ENUM_CURRENT_SETTINGS, DevM) Then
            Dim lResult As Integer
            'WWW.VİSUALBASİCDERSLERİ.COM
            DevM.dmPelsWidth = theWidth
            DevM.dmPelsHeight = theHeight


            lResult = ChangeDisplaySettings(DevM, CDS_TEST)

            If lResult = DISP_CHANGE_FAILED Then
                MsgBox("Çözünürlük değiştirilemedi..", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Screen Resolution Change Failed")
            Else

                lResult = ChangeDisplaySettings(DevM, CDS_UPDATEREGISTRY)

                Select Case lResult
                    Case DISP_CHANGE_RESTART
                        MsgBox("Değişikliklerin uygulanması için bilgisayarınızı yeniden başlatmalısınız.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Tamam") 'WWW.VİSUALBASİCDERSLERİ.COM
                    Case DISP_CHANGE_SUCCESSFUL

                    Case Else
                        MsgBox("Çözünürlük değiştirilemedi.", MsgBoxStyle.OkOnly + MsgBoxStyle.Critical, "Hata")
                End Select
            End If

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CozunurlukDegistir(TextBox1.Text, TextBox2.Text) 'WWW.VİSUALBASİCDERSLERİ.COM
    End Sub
End Class

Devamını Oku

Resim Çizimi

Resim Çizimi VB.NET

Başlıkta da belirtildiği gibi kodları yerleştirdiğiniz zaman paint gibi programınızın üzerinde çizim yapabilirsiniz.

Public Class Form1
    Dim x1, y1 As Integer

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Left Then
            x1 = e.X
            y1 = e.Y
        End If
        If e.Button = Windows.Forms.MouseButtons.Right Then
            x1 = e.X
            y1 = e.Y
        End If
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Dim renk As New System.Drawing.Pen(System.Drawing.Color.Red)
            Dim grafik As System.Drawing.Graphics
            grafik = Me.CreateGraphics()
            grafik.DrawLine(renk, e.X, e.Y, x1, y1)
            renk.Dispose()
            grafik.Dispose()
            x1 = e.X
            y1 = e.Y
        ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
            Dim renk As New System.Drawing.Pen(Me.BackColor)
            Dim grafik As System.Drawing.Graphics
            grafik = Me.CreateGraphics()
            grafik.DrawLine(renk, e.X, e.Y, x1, y1)
            renk.Dispose()
            grafik.Dispose()
            x1 = e.X
            y1 = e.Y
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Process.Start("chrome.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("iexplore.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("browser.exe", "http://www.visualbasicdersleri.com/")
    End Sub
End Class

Devamını Oku