Kliknite tukaj, da si ogledate profil, kot ga vidijo drugi

Preprečite, da se podatki v opomniku izbrišejo
Avtor: filips | Objavljeno: dne 21. avgust 2015, 04:08
  V prejšnji lekciji smo izdelalo program opomnik, sedaj pa bomo naredili, da se podatki ne bodo izbrisali.
 
 
1
  
 

Odprite Visual Basic in projekt.

Postavite se v pogled oblikvanja.
 
 
2
  
 

V Toolbox oknu z orodji izberemo komponento NotifyIcon ter jo z miško potegnemo na glavno okno programa.

Podobno v naš program dodamo tudi komponento ContextMenuStrip, tako da dobimo rezultat, kot je prikazan na sliki.

Potem kliknemo na NotifyIcon1 in nastavimo lastnost text na opomnik (ali poljubno drugo besedilo)
 
 
3
  
 

Sedaj kliknemo na ContextMenuStrip in notri vpišemo novi postavki Odpri in Zapri.
 
 
4
  
 

Nato zopet kliknemo na ContextMenuStrip ter kliknemo Odpri ter spremenimo lastnost (Name) oz. ime v Odpri_form. 

Podobno kliknemo na Zapri ter ime spremenimo v Zapri_form.


Sedaj kliknemo še na  NotifyIcon ter na desni strani nastavimo lastnost ContextMenuStrip na vrednost ContextMenuStrip1.
 
 
 
 
 
5
  
 

Sedaj dvokliknemo na okno programa (Form).


Odpre se funkcija Form_Load, v katero vnesemo naslednjo kodo:
 
 If Me.WindowState = FormWindowState.Normal Then
            Odpri_form.Visible = False
        ElseIf Me.WindowState = FormWindowState.Minimized Then
            Odpri_form.Visible = True
        End If
    End Sub
 
    Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        If Me.WindowState = FormWindowState.Minimized Then
            Me.ShowInTaskbar = False
            Me.Visible = False
        End If
    End Sub
 
    Private Sub Form1_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged
        If Me.WindowState = FormWindowState.Normal Or Me.WindowState = FormWindowState.Maximized Then
            odpri_form.Visible = False
        ElseIf Me.WindowState = FormWindowState.Minimized Then
            odpri_form.Visible = True
        End If
    End Sub
 
    Private Sub zapri_form_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Zapri_form.Click
        Dim result As DialogResult
 
        result = MessageBox.Show("Če boste zaprli program, boste izbrisali vse opomnike. Ali želite zapreti program?", "Zapri", MessageBoxButtons.YesNo)
 
        If result = DialogResult.No Then
        ElseIf result = DialogResult.Yes Then
            Application.ExitThread()
        End If
 
 
6
  
 

Zatem dvokliknemo še na  NotifyIcon in vnesemo naslednjo kodo:

 
   Me.WindowState = FormWindowState.Normal
        Me.ShowInTaskbar = True
        Me.Visible = True
      End sub
 
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True
        Me.WindowState = FormWindowState.Minimized
        Me.ShowInTaskbar = False
        NotifyIcon1.BalloonTipTitle = "Program še vedno teče"
        NotifyIcon1.BalloonTipText = "Program lahko odprete, zaprete tukaj..."
        NotifyIcon1.ShowBalloonTip(2)
 
 
(2) določa število sekund, kolikor bo obvestilo o pomanjšanju v orodno vrstico vidno.
 
 
7
  
 

Da pa bo program deloval pravilno, moramo med lastnostmi NotifyIcon dodati še ikono.


Za pretvorbo slike v ikono si oglejte to lekcijo.
Če ikon nimate, jih lahko prenesete na tej povezavi.
 
 
8
  
 

Ko boste program zaprli s klikom na X, se vam opomniki ne bodo izbrisali dokler ga ne boste zaprli prek opravilne vrstice.

Če pa boste računalnik ugasnili,pa se bodo opomniki zbrisali. :(
 
 
Komentiraj
  
 
 
 
 
25.8.2015, 12:58
Samo nekaj me zanima, ni to morda čista kopija moje lekcije ? ...hmmmmm!
 
 
 
 
26.8.2015, 6:37
V bistvu je res tvoja spodnja lekcija, z nekaj malenkostnimi spremembami.




spremenjeno: podtalje (26.8.2015, 6:38)
 
Prijava in registracija
 
 
 
Zmaga.com ponuja brezplačno in razumljivo učenje računalniških programov, vas na enkraten način spozna z različnimi svetovnimi jeziki, s podrobno obrazloženimi recepti prikaže čare kulinarike in vam prežene strahove pred domačimi opravili.
 
 
Poleg tega lahko prebirate poučne članke, ki so namenjene širjenju naše splošne razgledanosti ter preverite svoje znanje z priljubljenim in enostavnim sistemom za preverjanje znanja. Če med vsebinami, ki se dodajajo vsak dan, ne najdete želenega znanja, je za vaša vprašanja na voljo dobro obiskan forum, kjer lahko tudi aktivno sodelujete. V primeru, da bi radi svoje praktično znanje delili z ostalimi, pa to lahko storite preko preprostega vmesnika za dodajanje vsebin. Zmagajte z znanjem z Zmaga.com!
  
Zmaga.com na Facebooku | Pošljite nam e-pošto | Informacije o Zmaga.com