Avatar billede adagio Nybegynder
26. november 2002 - 13:43 Der er 17 kommentarer og
2 løsninger

Borderstyle or menu?

Nu har jeg et program, hvor jeg i "længere" tid har brugt menu-editoren, til at lave menuen (med file, edit, osv.), men nu ønsker jeg at lave programmet om, til at det kan bruge skins istedet, men når jeg vælger borderstyle = 0 på formen, så sker der ingenting (regner med, at det er på grund af menuen). Er det overhovedet ikke muligt at lave programmet om (til det kan bruge skins), uden at skulle slette menuen?

Nu er det sådan, at jeg fortrækker at beholde menuen (gemt), da jeg helst også vil give brugeren mulighed for at have programmet som standard (un-skinned), hvor brugeren derfor har brug for menuen.

I menuen har jeg også brugt genvejstaster...
Avatar billede martin_moth Mester
26. november 2002 - 15:03 #1
Du kan skjule menuen, og bruge den som pop-up menu i stedet, hvis det kan hjælpe:

Private Sub Form1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Button = 2 Or Button = 1 Then
    Form1.PopupMenu mnuFiler 'Forudsat din menu hedder mnuFiler
  End If
End Sub
Avatar billede adagio Nybegynder
26. november 2002 - 15:17 #2
Tak, men det tror jeg ikke vil hjælpe på mit problem, eftersom at menuen stadig er der.
Avatar billede adagio Nybegynder
26. november 2002 - 15:18 #3
Jeg kan ikke få det til at virke... og ud fra det der, så er det ikke noget om at skjule menuen?
Avatar billede adagio Nybegynder
26. november 2002 - 15:29 #4
Jeg kan godt få menuen til at virke, det er bare den der if sætning:

if Button = 2...

Det er der, den ikke rigtigt kan komme ind.
Avatar billede kjeld_klit Nybegynder
26. november 2002 - 15:54 #5
Har du husket at slette formens Caption i Properties vinduet?
Avatar billede adagio Nybegynder
26. november 2002 - 16:04 #6
Ja, det gør ingen forskel, den viser det stadig, som om borderstyle er Fixed Single
Avatar billede kjeld_klit Nybegynder
26. november 2002 - 16:17 #7
Jeg ved ikke om det kan lade sig gøre, men det ER pga. menuen at formen får sin ramme, uanset om den er skjult eller ej. Hvis du sletter menuen virker det ok - ikke?
Avatar billede adagio Nybegynder
26. november 2002 - 16:24 #8
Jo, vis jeg sletter menuen, så virker det, men så mangler jeg manuen (eller rettere det som er i menuen, og dem vil jeg gerne kunne få fat i igen (Bruger nu bl.a. popupMenu som Martin Moth nævner)

Men hvad med det, om man kunne gemme skjule menuen istedet? (Som Martin Moth også nævner)
Avatar billede kjeld_klit Nybegynder
26. november 2002 - 16:39 #9
En popup menu er jo en skjult menu. Så med mindre du kunne ændre menufunktionerne til noget med Form_KeyDown(KeyCode As Integer, Shift As Integer); If KeyCode = vbKeyF1 Then Call Gør_noget, ja så tror jeg du kører fast her ;-)
Avatar billede adagio Nybegynder
26. november 2002 - 17:05 #10
Javel. Det kunne jeg måske nok blive nødt til så. Findes der heller ingen muligheder for at man kan få en slags lignende menu frem, ved højreklik med musen. Det er trods alt ikke alle, som bruger genvejstaster.
Avatar billede kjeld_klit Nybegynder
26. november 2002 - 17:14 #11
Jeg kender ingen andre end popup menu. Selv om man godt kan kalde en popupmenu med en genvejstast ville det ikke løse dit problem.
Avatar billede adagio Nybegynder
26. november 2002 - 17:22 #12
Ok, så prøver jeg at se om jeg kan få det andet til at virke... Dog holder jeg lige spørgsmålet åbent lidt... det kunne jo være... :o)
Avatar billede adagio Nybegynder
27. november 2002 - 15:42 #13
Jeg har nu prøvet lidt rundt med det. Jeg kunne ikke lige få den der form_keydown til at virke, skrev den således:

Public Sub Form_Keydown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
lstOrigVHS
lblInfo(4).Caption = ""
End If
End Sub

Hvad er det lige, der går galt?
Avatar billede kjeld_klit Nybegynder
27. november 2002 - 15:56 #14
Husk i Form_Load linien:

    KeyPreview = True
Avatar billede adagio Nybegynder
27. november 2002 - 15:56 #15
Hmmm...jeg prøvede lige at starte et nyt projekt, deri kan jeg godt bruge keydown, men det kan jeg ikke i det projekt jeg arbejder på!?!

Kan det have noget at gøre med, at jeg har tilført et baggrundsbillede i det projektet?
Avatar billede adagio Nybegynder
27. november 2002 - 15:58 #16
Det gør ingen forskel, og den havde jeg heller ikke, i test programmet...
Avatar billede adagio Nybegynder
27. november 2002 - 16:02 #17
Jeg er nu kommet en tak tættere for fejlen. Når jeg startede programmet var knappen covers markeret, nu har jeg så valgt tabstop for alle knapper til at være false, men det virker stadig ikke...
Avatar billede adagio Nybegynder
27. november 2002 - 16:44 #18
Ahhh...har fundet fejlen. Jeg glemte at slette genvejstasterne i menuen...
Avatar billede adagio Nybegynder
27. november 2002 - 18:38 #19
Jeg har nu fået lavet en acceptabel løsning på problemet. Jeg vælger at give Kjeld Klit de 15 point, eftersom at jeg har valgt at bruge det med Keydown. De sidste 30 point beholder jeg selv, da der ikke kom nogen endelig løsning på mit problem.

Men jeg takker for hjælpen...
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

IT-JOB

Netcompany A/S

IT Consultant

Netcompany A/S

Linux Operations Engineer

Capgemini Danmark A/S

AI Data Architect

Riskpoint A/S (Riskpoint Solutions Limited)

IT Business Analyst