[VB.NET] Profesyönel Uyarı Kutusu Hazırlama

[LastByte CheatZ]

Hızlıca başlayalım önce frmAlert adında bir form oluşturalım
sonra 2 adet picture box lazım
bir de panel
picturebox2 ye basınca uyarı formu kapanacak (otomatik kayboluyor zaten ama ginede ekledim)
1 adet de label
panel in dockunu en sola ayarlayalım ve büyüklüğünü siz ne isterseniz o olsun
labele birşey yazmanıza gerek yok
formumuzu hazırladıktan sonra
ve bir adet timer ekleyelim ve şu kodları yapıştıralım​

Public Class frmAlert
    Enum alertTypeEnum
        Succes
        Warning
        [Error]
        Info
    End Enum
    Dim x, y As Integer
    Public Sub setAlert(msg As String, type As alertTypeEnum)
        Me.Opacity = 0
        Me.StartPosition = FormStartPosition.Manual
        Dim fname As String
        For i As Integer = 1 To 10
            fname = "alert" & i.ToString
            Dim f As frmAlert = Application.OpenForms.Item(fname)
            If f Is Nothing Then
                Me.Name = fname
                x = Screen.PrimaryScreen.WorkingArea.Width - Me.Width + 15
                y = Screen.PrimaryScreen.WorkingArea.Height - Me.Height * i - 5 * i
                Me.Location = New Point(x, y)
                Exit For

            End If
        Next
        x = Screen.PrimaryScreen.WorkingArea.Width - Me.Width - 5
        Select Case type
            Case alertTypeEnum.Error
            'kodlar By_Hackera_  adlı MemoryHackers Kullanıcısna aittir
                Me.GunaPictureBox1.Image = My.Resources.Error_28px
                Me.BackColor = Color.FromArgb(255, 121, 70)
            Case alertTypeEnum.Info
                Me.GunaPictureBox1.Image = My.Resources.Info_28px
                Me.BackColor = Color.FromArgb(71, 169, 248)
            Case alertTypeEnum.Succes
                Me.GunaPictureBox1.Image = My.Resources.Checkmark_28px
                Me.BackColor = Color.FromArgb(42, 171, 160)
            Case alertTypeEnum.Warning
                Me.GunaPictureBox1.Image = My.Resources.Warning_28px
                Me.BackColor = Color.FromArgb(255, 179, 2)

        End Select
        Me.GunaLabel1.Text = msg
        Me.Show()
        Me.Timer1.Interval = 1
        Me.Timer1.Start()

    End Sub
    Enum actionEnum
        wait
        start
        close
    End Enum
    Private action As actionEnum = actionEnum.start

    Private Sub GunaPictureBox2_Click(sender As Object, e As EventArgs) Handles GunaPictureBox2.Click
        Me.Timer1.Interval = 1
        action = actionEnum.close
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Select Case action
            Case actionEnum.start
                Me.Timer1.Interval = 1
                Me.Opacity += 0.1
                If x < Me.Location.X Then
                    Me.Left -= 1
                Else
                    If Me.Opacity = 1 Then
                        action = actionEnum.wait
                    End If

                End If
            Case actionEnum.wait
                Timer1.Interval = 5000
                action = actionEnum.close

            Case actionEnum.close
                Timer1.Interval = 1
                Me.Opacity -= 0.1
                Me.Left -= 3
                If Me.Opacity = 0 Then
                    Close()
                End If

        End Select
    End Sub


End Class

Şimdi biz bu formu nasıl kullanıcağız
normal form1 re bir a det button ekleyelim ve
şunu yapıştıralım

Dim f As frmAlert = New frmAlert

şimdi
de onun altına şunu yapıştıralım

f.setAlert("Buraya formda görünecek şeyi yazın", frmAlert.alertTypeEnum.Warning)

bu arada bu kodun son kısmında .Warning var o uyarı mesajı oluyor
birsürü şey var
oraya yazabilecekleriniz
Info
Error
Succes
Warning
Hepinize Başarılar
Eğer inanmıyorsanız

bu arada resourcese şu resimleri import edelim

Bağlantıları görmek için lütfen Giriş Yap

 

[hacker1152]

programlama dersi almak istiyorum yardımcı olurmusunuz ?

 

[eneskku]

eyw

 

[ibox13f]

eyw da tam anliyamadım ya

 

[LastByte CheatZ]

programlama dersi almak istiyorum yardımcı olurmusunuz ?

tabikide

 

[valkyriumdestroyer]

Çok kullanışlı! Teşekkür ederim!

 

[LastByte CheatZ]

v

Çok kullanışlı! Teşekkür ederim!

vazifem dostum bu arada bu kodları benden aldığını unutma! sakın ha bu kodlar benim diye bir yerde paylaşma

 

[The R7flex]

VB.NET'te kesinlikle kullanacağım yararlı olmuş! C# genellikle MetroFramework kullanarak uyarı yapardık bu daha iyi ama!

 

[LastByte CheatZ]

VB.NET'te kesinlikle kullanacağım yararlı olmuş! C# genellikle MetroFramework kullanarak uyarı yapardık bu daha iyi ama!

teşekkürler dostum

 

[unqownexe]

Visual Studioyu açınca bakıcam teşekkürler

 

[LastByte CheatZ]

I understand the basics of scheduling. I can help if you want. health friend

no thanks

 

[valkyriumdestroyer]

v

vazifem dostum bu arada bu kodları benden aldığını unutma! sakın ha bu kodlar benim diye bir yerde paylaşma

Kombine! Tekrar teşekkürler!

 

[irbati]

biraz daha açar mısın kanka

 

[selamcokko123]

çok gereksiz bir şey kardeşim yani ne ihtiyaç var böyle birşeye boş konu açmayın

 

[LastByte CheatZ]

çok gereksiz bir şey kardeşim yani ne ihtiyaç var böyle birşeye boş konu açmayın

yav kardeşim 2 kod bildiğin yok sana try ne işe yaradığını sorsam bilemicen niye laf atıyosun herkezin işine yaradı yani kendin vb.net bilmiyosun diye bizim yaptıklarımızı kıskanma tamammı?

 

[lastshot2005]

Görüntüsü falan da çok hoş elinize sağlık

 

[RuslanMani]

programlama dersi almak istiyorum yardımcı olurmusunuz ?

 

[bumbumbambam]

bilgiler icin tesekkurler

 

[Kerimredrock]

teşşekürler bro

 

[QosmioS00]

knk c# a hakimim vb.nete geçmem zor olmayacaktır di mi