Just nu i M3-nätverket
Jump to content

Små saker...:)


Eminos

Recommended Posts

Fråga 1:

 

Detta funkar för engelska tecken!

 

If Shift = vbAltMask Then
Select Case KeyCode
Case vbKey1
Command12_Click
End Select

 

Men hur gör jag om jag vill använda ett "å" istället för "1" ???..Jag antar att man måste använda sej av ANSI, lr liknande...

 

Jag får det inte att funka!

Fråga2:

 

Hur gör jag om jag vill understryka vissa TECKEN på den text som står på en knapp (command.caption) ?

Fråga3:

 

Hur ändrar jag färgen på texten i en knapp (command.caption) ?

Fråga 4:

 

Hur ändrar man färgerna på en ProgressBar ?...färgen på 'rutorna' och bakgrundsfärgen, alltså...

Fråga 5:

 

När jag trycker CTRL+V, för att klistra in, så körs denna kod, som den ska...

 

If Clipboard.GetFormat(vbCFBitmap) Then
           mess = MsgBox("Du kan inte klistra in egna bilder här!", vbInformation, "Egna Bilder")
           'keyascii nummeret för backspace för att ta bort "v" som kommer fram
       GoTo slut
       End If

 

Men han lägger till ett "v", efter att man klickat bort meddelandet!...varför? Hur får man bort det?

 

/Eminos

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...