230问答网 > 如何使用createwindowex 这个API，能给出一个能运行的例子吗

如何使用createwindowex 这个API，能给出一个能运行的例子吗

2025-03-13 15:25:26

推荐回答（1个）

回答1：

Const WS_EX_STATICEDGE = &H20000
Const WS_EX_TRANSPARENT = &H20&
Const WS_CHILD = &H40000000
Const CW_USEDEFAULT = &H80000000
Const SW_NORMAL = 1
Private Type CREATESTRUCT
lpCreateParams As Long
hInstance As Long
hMenu As Long
hWndParent As Long
cy As Long
cx As Long
y As Long
x As Long
style As Long
lpszName As String
lpszClass As String
ExStyle As Long
End Type
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim mWnd As Long
Private Sub Form_Load()
Dim CS As CREATESTRUCT
'Create a new label
mWnd = CreateWindowEx(WS_EX_STATICEDGE Or WS_EX_TRANSPARENT, "STATIC", "Hello World !", WS_CHILD, 0, 0, 300, 50, Me.hwnd, 0, App.hInstance, CS)
Me.Caption = mWnd
'Show our label
ShowWindow mWnd, SW_NORMAL
End Sub
Private Sub Form_Unload(Cancel As Integer)
'destroy our label
DestroyWindow mWnd
End Sub

最新问答

带虚空藏菩萨有什么讲究？

专硕不能考公务员吗

ISO9001认证要审厂吗，ISO年审要多少钱

一年四季哪个季节最合适汗蒸

跑了13000公里，有必要调换轮胎位置吗

从成都到南阳是从成都哪个火车站上车到南阳哪个火车站下车

请问桥式整流的作用是什么求大神帮助

坐四十五路公交车能到西站公交车站中心吗

航海技术专业就业前景以及收人怎么样

想知道: 温州市从高翔工业区到火车站快餐店怎么坐公交