Anonymní profil Sebesta15 – Programujte.com

Mám problém se svou aplikací. Potřebuji, aby se aplikace po stisknutí určitého tlačítka nebo "skrýt" v Popup menu minimalizovala do ikonky v traybaru a po poklikání nebo stisknutí "zobrazit" v popup menu této ikonky opět zobrazila. Toto mi již funguje ale vyskytl se problém. Občas mi samo od sebe vyskočí popup menu nebo se aplikace minimalizuje. Nevím proč to dělá a tak vás žádám o pomoc.
Pravděpodobně je to zapříčiněno touto částí kódu:

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)



Dim Result As Long

Dim msg As Long



If Me.ScaleMode = vbPixels Then

  msg = X

Else

  msg = X / Screen.TwipsPerPixelX

End If



Select Case msg

  Case WM_RBUTTONUP

    PopupMenu mnuPopup

  Case WM_LBUTTONDBLCLK

      If Form1.Visible = False Then

         Form1.Visible = True

         mnuFunction.Caption = "Skrýt"

      Else

         Form1.Visible = False

         mnuFunction.Caption = "Zobrazit"

      End If

End Select

Exit Sub

End Sub

Nevím, asi jsem velká lama, ale ani teď to nejde :smile13: . Napadá mě ještě jedna možnost. Nedal by se do adresáře s programem umístit zástupce na vypnutí ( shutdown -f -s -t) a jen ho spustit?

Tak ted to pro zmenu pise: Sub or Function nod defined - ExitWindowsEx

Dobrý den, neznáte někdo příkaz pro vypnutí PC? zkoušel jsem

System.Diagnostics.Process.Start("Shutdown", "/s")

DÍÍÍÍÍÍÍÍKY MOC!!!!!!!

Právě dělám takový multifunkční budík a narazil jsem na menší problém. Potřebuji, aby se do TextBoxu dala zapsat pouze číselná hodnota ale menší než 24 (to budou hodiny). Nevím ale, jednoduchý způsob (pokud je) jak to napsat, aby tyto 2 podmínky platily zároveň. Zatím jsem použil ten delší způsob:

Dim a As Byte

Dim b As Byte

Dim c As Byte



If IsNumeric(Text1) Then 'hodnota musí být číselná

a = 1

Else

a = 0

End If



If Val(Text1.Text) <= 23 Then 'hodnota musí být menší nebo rovna 23

b = 1

Else

b = 0

End If



c = a + b

   Select Case c

     Case Is = 2

       Command1.Enabled = True 'tlačítko se dá stisknout

       'pouze tehdy, jsou-li obě podminky splněny

     Case Else

       Command1.Enabled = False

   End Select



End Sub

If IsNumeric(Text1) Then If Val(Text1.Text) <= 23 Then

Command1.enabled = True

Else

Command1.enabled = False

End If