سلام صبح همه اساتید و بازدید کنندگان محترم بخیر
برای حذف کادر کپشن یک یوزر فرم دستوراتی رو در vb پیدا کردم. این دستوراتش اینه
و در کد های USERFORM مون این کد ها رو وارد میکنیم
بعد کادر کپشن حذف میشه
حالا مشکلم اینه که توی ویندوز های ۶۴ بیتی ه
فایل تو ویندوز های ۶۴ بیتی پیام میده چه کنم که این پیام دیده نشه
عکس خطا رو هم پیوست می*کنم
برای حذف کادر کپشن یک یوزر فرم دستوراتی رو در vb پیدا کردم. این دستوراتش اینه
توی یه ماژول جدید کد زیر رو وارد میکنیم
کد:
[LEFT]
Option Explicit
Private Declare Function FindWindow Lib "User32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "User32" _
Alias "GetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
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 DrawMenuBar Lib "User32" ( _
ByVal hwnd As Long) As Long
Sub RemoveCaption(objForm As Object)
Dim lStyle As Long
Dim hMenu As Long
Dim mhWndForm As Long
If Val(Application.Version) < 9 Then
mhWndForm = FindWindow("ThunderXFrame", objForm.Caption) 'XL97
Else
mhWndForm = FindWindow("ThunderDFrame", objForm.Caption) 'XL2000+
End If
lStyle = GetWindowLong(mhWndForm, -16)
lStyle = lStyle And Not &HC00000
SetWindowLong mhWndForm, -16, lStyle
DrawMenuBar mhWndForm
End Sub
Sub ShowForm()
UserForm1.Show False
End Sub
[/LEFT]
کد:
Option Explicit
Private Sub UserForm_Initialize()
Call RemoveCaption(Me)
End Sub
بعد کادر کپشن حذف میشه
حالا مشکلم اینه که توی ویندوز های ۶۴ بیتی ه
فایل تو ویندوز های ۶۴ بیتی پیام میده چه کنم که این پیام دیده نشه
عکس خطا رو هم پیوست می*کنم
فایل های پیوست شده
کامنت