Kein BorderStyle..........

[Basic]

Hallo,
Wenn man in Visual Basic 6 " 0 - kein BorderStyle " angibt dann kann man das Fenster nicht mehr bewegen....kann man es irgendwie machen das man das Fenster doch bewegen kann?

Bitte postet ;-]

 

[wincnc]

Füge folgenden Code in Deine Form ein:

Private Declare Sub ReleaseCapture Lib "User32" ()
Private Declare Function SendMessage Lib "User32" _
  Alias "SendMessageA" (ByVal hwnd As Long, _
  ByVal wMsg As Long, ByVal wParam As Long, _
  lParam As Any) As Long

Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Form_MouseDown(Button As Integer, _
  Shift As Integer, x As Single, Y As Single)
  Dim lResult As Long
  If Button = 1 Then
    Call ReleaseCapture
    lResult = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, _
      HTCAPTION, 0&)
  End If
End Sub

 

[Basic]

hmm komisch wenn ich den einfüge und dann auf vorschau geh dann kommt immer son komischer ton und dann wird was von den code gelb angezeigt, woran liegt das?

 

[wincnc]

Was wird denn gelb angezeigt ?

 

[Basic]

Private Declare Sub ReleaseCapture Lib "User32"


Das wird gelb.

 

[wincnc]

Bei mir funktionierts, aber versuch mal das:

Private Declare Function ReleaseCapture Lib "user32" () As Long

 

[Basic]

Habe den jetzt so eingefügt, geht aber trotzdem nicht.


Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2

Private Sub Form_MouseDown(Button As Integer, _
Shift As Integer, x As Single, Y As Single)
Dim lResult As Long
If Button = 1 Then
Call ReleaseCapture
lResult = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, _
HTCAPTION, 0&)
End If
End Sub

 

[wincnc]

Was für ein Betriebssytem und was für eine VB ? (SP?) Version hast Du ?

 

[Basic]

Windows Xp, VB6, Service Pack 1

 

[wincnc]

Ich schätze mal, daß es an XP liegt, aber versuch mal folgendes.
Füge den Code in ein Modul ein:

Public Declare Sub ReleaseCapture Lib "User32" ()
Public Declare Function SendMessage Lib "User32" _
  Alias "SendMessageA" (ByVal hwnd As Long, _
  ByVal wMsg As Long, ByVal wParam As Long, _
  lParam As Any) As Long

Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2

Und den in eine Form:

Private Sub Form_MouseDown(Button As Integer, _
  Shift As Integer, x As Single, Y As Single)
  Dim lResult As Long
  If Button = 1 Then
    Call ReleaseCapture
    lResult = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, _
      HTCAPTION, 0&)
  End If
End Sub

Falls es nicht geht, weiß ich auch keine Rat mehr.