Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Tip!
Autor: Ronny42Dach
Datum: 18.08.01 13:48
' Als erstes braucht man folgende Deklaration, um ' die Buttons die nötige Ausrichtung des Caption zu geben! Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hwnd As Long, _ ByVal nIndex As Long) As Long Private Const GWL_STYLE = (-16) Private Const BS_TOP = &H400 Private Const BS_VCENTER = &HC00 Private Const BS_BOTTOM = &H800 Private Const BS_LEFT = &H100 Private Const BS_CENTER = &H300 Private Const BS_RIGTH = &H200 Dim n& Option Explicit Private Sub Command1_Click() ' damit das Bild auch schön so bleibt muss biem kliken der Focus umgesetzt werden! ' ein Button darf nicht den ersten Index erhalten - besser ne Textbox! Command1.Enabled = False Form1.SetFocus Command1.Enabled = True End Sub Private Sub Form_Load() ' Nachfolgend richtet den Text im Command1Button LEFT aus! n& = GetWindowLong(Command1.hwnd, GWL_STYLE) n& = n& Or BS_LEFT 'um andere Ausrichtungen zu erhalten die Variable BS_LEFT ersetzen! SetWindowLong Command1.hwnd, GWL_STYLE, n& Command1.Refresh 'BS_TOP = Oberkante 'BS_VCenter = Vertikalzentrieren 'BS_BOTTOM = Unterkante 'BS_LEFT = Links 'BS_CENTER = Mitte 'BS_RIGHT = Rechts End Sub ' Dann muss man eigentlich blos noch ne Picturebox auf ' den Button legen sich ein GIF-Transparenten Hintergrund´s aussuchen. ' Die Picturebox hat bei meinen Buttons keinen Rahmen und ist 2D ' Wenn man möchte kann man mit dem Register me.Command1.Enabled ' prüfen ob es eben ein Buntes oder graues Bild sein ' muss - dann me.Picturebox.Picture LoadPicture(App.Path & "Bildgrau.gif ")" ' Fertig - spass beim kliken!

bitte ne ehrliche Meinung zur Programmoberfläche	96	Ronny42Dach	18.08.01 09:09
Re: bitte ne ehrliche Meinung zur Programmoberfläche	61	Pferdo	18.08.01 09:42
Re: bitte ne ehrliche Meinung zur Programmoberfläche	53	Chris	18.08.01 11:38
Re: zu den Buttons!	54	Ronny42Dach	18.08.01 13:01
Re: Tip!	60	Ronny42Dach	18.08.01 13:48
Re: bitte ne ehrliche Meinung zur Programmoberfläche	59	Tolwyn	19.08.01 19:01
Ich muß mich als Moderator hier heraushalten.	260	unbekannt	19.08.01 19:11
Aber bitte, sagt Ronny was Ihr von seinem Layout haltet. (oT...	249	unbekannt	19.08.01 19:14

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen