گذاشتن کمپننت در موقع اجرای برنامه

[mostafa612003]

سلام
اگر بخواهیم در حین اجرای برنامه یک کمپننت تصویر داشته باشیم باید از چه کدی استفاده کنیم؟

خیلی متشکرم

[M-Gheibi]

آقا مصطفی میشه منظورتون رو واضح تر بگید.

[mostafa612003]

سلام
ما برای اینکه همیشه یک تصویر در فرممان داشته باشیم اول باید کمپننت تصویر را در برنامه قرار بدهیم
حالا اگر ندانیم چه تعداد تصویر لازم داریم آن وقت باید چه کار کنیم؟
آیا راهی هست که در خود برنامه کمپننت تصویر را ایجاد کنیم؟

خیلی متشکرم

[Best Programmer]

به کمک API به سادگی شدنی هست



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

[mostafa612003]

سلام
خیلی متشکرم ولی من زیاد متوجه نشدم