1: Hvordan laver jeg et program som TRAY icon i VB? Altså så man kan klikke på det, og det hopper op igen. Når man minimere smutter det ned som tray igen.
2: Hvordan laver jeg en top menubar? Altså noget alla
2. Er ikke sikker på hvad du mener. Hvis det er en standard menu du vil lave skal du vælge \"Menu Editor\" den ligger mellem \"Add form\" og \"Save\" knapperne. Alternativt stå på formen og højreklik. Ellers er du nødt til at præcisere det lidt.
Selvfølgelig. Hvis du er total begynder vil jeg foreslå at punkt 1. bliver gemt væk til lidt senere. Det er en større omgang.
Du laver menuer med menu-editoren. Du skal have den form synlig som du vil lave menuen på. Højreklik på formen og vælg menu-editor. Der kommer nu et nyt vindue op. Det er menu-editoren. Følgende punkter skal udfyldes:
Caption: Det er den tekst der vises i menuen. F.eks. Filer. (for at understrege et bogstav skal du sætte & foran bogstavet. Du kan så benytte alt+bogstavet til at kalde menuen.)
Name: Det interne navn som du bruger når du skal skrive koden. F.eks. mnuFiler
Nu har du lavet menupunktet filer. For at lave underpunkter til denne trykker du på \"Next\" og derefter knappen pil-højre. Så rykker næste felt ind. Udfyld igen:
Caption: Ny Name: mnuFilerNy
Ved hjælp af venstre og højre pilene i vinduet kan du styre undermenuer osv.
Skal du lave en streg i menuen laver du en bindestreg - i Caption og i Name skriver du f.eks. mnuFilerStreg.
Når du har lavet menuerne trykker du ok. Husk at alle menupunkter skal have et unikt navn.
Er alt ok - vender du tilbage til din form. Denne har nu fået menuer. Klik på et menupunkt og dit kodevindue kommer op. Her skriver du så hvad der skal ske når brugeren vælger menupunktet.
jeg har lige en lille ting til det med at minimere programmet. : Private Type NOTIFYICONDATA cbSize As Long hWnd As Long uId As Long uFlags As Long ucallbackMessage As Long hIcon As Long szTip As String * 64 End Type
Private Declare Function Shell_NotifyIcon Lib \"shell32\" Alias \"Shell_NotifyIconA\" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean Dim t As NOTIFYICONDATA
Private Sub Form_Load() t.cbSize = Len(t) t.hWnd = pichook.hWnd t.uId = 1& t.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE t.ucallbackMessage = WM_MOUSEMOVE t.hIcon = Me.Icon t.szTip = \"Shell_NotifyIcon ...\" & Chr$(0) Shell_NotifyIcon NIM_ADD, t Me.Hide App.TaskVisible = False End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) t.cbSize = Len(t) t.hWnd = pichook.hWnd t.uId = 1& Shell_NotifyIcon NIM_DELETE, t End Sub
Private Sub mnuMain_Click(Index As Integer) Unload Me End Sub
Private Sub pichook_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static rec As Boolean, msg As Long msg = X / Screen.TwipsPerPixelX If rec = False Then rec = True Select Case msg Case WM_LBUTTONDBLCLK: MsgBox \"Double click !\" Case WM_LBUTTONDOWN: Case WM_LBUTTONUP: Case WM_RBUTTONDBLCLK: Case WM_RBUTTONDOWN: Case WM_RBUTTONUP: Me.PopupMenu mnuBar End Select rec = False End If End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.