Zum Inhalt springen

Vb 6.0


biker.enti

Empfohlene Beiträge

wenn du's außer gefcht setzen willst, dann setz den cancel-wert im Unload Ereignis auf <>0 (z.B. -1, oder sonst was...)

Das verhindert das Ausführen des Unload Vorgangs und die Form bleibt da wo sie war...

wenn du allerdings das kreuz nicht sichtbar haben willst, dann müßtest du auch erstmal aufs icon verzichten(controlbox=false). weiß nicht ob es da was gibt, wie mans trotzdem hinbekäme.. allerhöchstens n Bild rüberschmeißen, wäre dann meine Idee. aber vielleicht haben andere pfiffigere Köpfe auch noch was :)

Link zu diesem Kommentar
Auf anderen Seiten teilen

Einfach den folgenden Code in das entsprechende Formular einfügen:

Private Declare Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long

Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Const MF_BYPOSITION = &H400

Private Sub Form_Load()

Dim Handle&

Handle = GetSystemMenu(Me.hWnd, 0)

RemoveMenu Handle, 5, &H400 'strich

RemoveMenu Handle, 6, &H400 'schliessen

End Sub

Link zu diesem Kommentar
Auf anderen Seiten teilen

Jepp, danke erstmal. Hab's versucht, aber der Button ist immer noch da. Muß mal gucken, wie ich das Problem gelöst kriege.

Wie kann ich eigentlich eine Combobox mit 2 Listboxen verknüpfen. Ich möchhte per Click in der Combobox einen Wert auswählen dessen Text dann in 2 Listboxen angezeigt werden soll und zwar rausgesucht aus der Tabelle, die bereits in die Listboxen eingelesen ist.

Link zu diesem Kommentar
Auf anderen Seiten teilen

  • 2 Wochen später...
Original geschrieben von biker.enti

Tja, das eigentlich Problem mit dem Schließen-Button im Formular habe ich zwar immer noch nicht gelöst, aber die Combobox läuft, wie sie laufen soll. :D:D:D

Hallo,

Mit der nachfolgenden Prozedur wird das Schließen-Symbol in der Titelleiste eines Fenster deaktiviert, d.h. das Fenster kann nicht mehr über das Schließen-Symbol geschlossen werden.

'zunächst die benötigten Deklarationen

Private Declare Function GetSystemMenu Lib "user32" _

(ByVal hwnd As Long, ByVal bRevert As Long) As Long

Private Declare Function DeleteMenu Lib "user32" _

(ByVal hMenu As Long, ByVal nPosition As Long, _

ByVal wFlags As Long) As Long

Private Declare Function DrawMenuBar Lib "user32" _

(ByVal hwnd As Long) As Long

Private Const SC_CLOSE = &HF060

Private Const MF_BYCOMMAND = &H0

'Entfernen des Schließen-Symbols

Public Sub DisableCloseButton(hWnd As Long)

Dim hMenu As Long

hMenu = GetSystemMenu(hWnd, 0&)

If hMenu Then

Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)

DrawMenuBar hWnd

End If

End Sub

Anmerkungen:

Die Prozedur DisableCloseButton deaktiviert das Schließensymbol in der Titelleiste des Fensters und entfernt gleichzeitig den "Schließen"-Befehl im Systemmenü.

Beispiel:

Private Sub Form_Load()

DisableCloseButton Me.hWnd

End Sub

Gruss Ganta

Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...