نقل قول: عدم نمايش usercontrol
مثلا تو كنترلمون يه text دارم نمي خوام usercontrol ديده شود و فقط text نمايش داده شود
بايد UserControl.BackStyle رو به سادگي ترانسپارنت كنيد.
نقل قول: چطور مي شه فهميد كه كامپوننت در بخش طراحي است يا اجرا؟
يكم API بازي داره! بايد هندل پارنت برنامه رو بگيري ببنيي توسط IDE ويژوال استديو اجرا شده يا نه، اگر بله يعني در حالت
ديزاين تايم هستيد.
سلام
با تشكر از دوستان و didi
مي شه بيشتر توضيح بدين :)
دارم يه سري كامپوننت سر هم مي كنم همين دو مورد مشكل دارم :(
با تشكر
ممنننوووون
كدومش رو توضيح بدم؟ كجاش مشكل برخورديد؟
1.دوست عزیز برای ترانسپارنت چکار باید کرد البته میشه با کمک دوست عزیز با قرار دادن کد زیر در بخش Show این کارو کرد
usercontrol.backcolor=ambient.backcolor
ولی اگر راه بهتر(مورد نظر من) دارید بگید ممنون میشم
2.می شه API شو بگید ممنون می شم برای بدست آوردن هندل پارنت
با تششششششششششششششکر فراوان
براي ترانسپارنت مي شه اين كارو كرد:
UserControl.BackStyl=Transparent
يا مي شه روي كنترلت كليك كني و از پنجره مشخصات ، گزينه BackStyleرو پيدا كني و مقدارش رو تغير بدي!!!
براي فهميدن اينكه در حالت ديزاين تايم هستي هم مي توني از كد زير استفاده كني
کد:
Option Explicit
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Const GW_HWNDNEXT = 2
Const GW_CHILD = 5
'********************************************
'*Give it part of the window text your looking for
'*it will give you the hWnd
'*usefull for windows that text is like "[project] - microsoft visual basic [design]"
'*usage:
'*Msgbox FindWindowLike("visual basic")
'*Returns 0 if not found
'*******************************************
Function FindWindowLike(strPartOfCaption As String) As Long
Dim hWnd As Long
Dim strCurrentWindowText As String
Dim r As Integer
hWnd = GetForegroundWindow
Do Until hWnd = 0
strCurrentWindowText = Space$(255)
r = GetWindowText(hWnd, strCurrentWindowText, 255)
strCurrentWindowText = Left$(strCurrentWindowText, r)
'hWnd = GetWindow(hWnd, GW_CHILD)
If InStr(1, LCase(strCurrentWindowText), LCase(strPartOfCaption)) <> 0 Then GoTo Found
hWnd = GetWindow(hWnd, GW_HWNDNEXT)
Loop
Exit Function
Found:
FindWindowLike = hWnd
End Function
كافيه با استفاده از تابع بالا كلمه [design] رو سرچ كني، اگر هندلي بهت داد يعني الان ويژوال بيسيك در حال اجراست
با تشکر از دوست عزیز Di Di و سایرین
یه سوال دگه و آخرین مشکلم
چه جوری میشود کنترل را به صورتی طراحی کرد که مانند یه Frame و یا Picture کنترل های دیگر را در خود نگه دارد
کار یک frame را انجام دهد
اگر ینو هم بگید واقعه لطف کردید
با تششششششششکککککککککککککر
خواهش مي كنم.
مهندس بايد خاصيت ControlContiner رو True كني.
بازم سلام و سوال
اول با تشکر از همه ی دوستان
در کامپوننت Limiter Program V2 یه مشکل کوچیک پیش اومد
چطور می شود نام کنترلمون که کاربر در فرم خود قرار داده را بدست آورد؟
مثلا نام کنترل را LimiterProgram2 قرار داده و این نام را چطور بدست بیارم؟
با این کار یکی از مشکلات Limeter Program V1 که در هر پروژه فقط یک کامپوننت از این نوع قابل استفاده بود رفع می شود.......
با تششککر
ممنون از راهنماییتون
دستت درد نكنه خيلي ممنننوووون :)
بد شانسي برقا رفتن
نقل قول: دستت درد نكنه خيلي ممنننوووون :)
.
.
با تششششششششکککککککککککککر
.
.
ممنوووووووووووووووووووون
شما كه خيلي علاقه داري كلمات رو بكــــــــــــــــــــــــــــــــــشـــــــــــــــــــــــي بايد اينطوري بكشي !! ( ت + Shift )
