| ²é¿´: 408 | »Ø¸´: 0 | ||
ÐÒ¸£½Ö21ºÅͳæ (СÓÐÃûÆø)
|
[ÇóÖú]
¸÷λ´óÉñ£¬vbÈçºÎͨ¹ýÍ϶¯ÊµÏֿؼþ´óСµÄ¸Ä±ä£¿£¿
|
|
ÔÚÍøÉÏËÑÁËһϣ¬Ö»¿´µ½Ò»¸öÕë¶Ôpicture¿Ø¼þµÄ³ÌÐò£º Private Const GWL_STYLE = (-16) Private Const WS_THICKFRAME = &H40000 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOZORDER = &H4 Private Const SWP_NOMOVE = &H2 Private Const SWP_DRAWFRAME = &H20 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 SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Sub ControlSize(ControlName As Control, SetTrue As Boolean) Dim dwStyle As Long dwStyle = GetWindowLong(ControlName.hwnd, GWL_STYLE) If SetTrue Then dwStyle = dwStyle Or WS_THICKFRAME Else dwStyle = dwStyle - WS_THICKFRAME End If dwStyle = SetWindowLong(ControlName.hwnd, GWL_STYLE, dwStyle) SetWindowPos ControlName.hwnd, ControlName.Parent.hwnd, 0, 0, 0, 0, SWP_NOZORDER Or SWP_NOSIZE Or SWP_NOMOVE Or SWP_DRAWFRAME End Sub Private Sub Form_Load() ControlSize picture1, True End Sub Õâ¸ö³ÌÐòÄܹ»ÊµÏÖÔÚÔËÐÐʱ£¬Í϶¯picture¸Ä±äËüµÄ´óС£¬µ«Êǽ«ÓïÑÔÖеÄpicture1»»³Éframe1»òÕßtext1ºó£¬ÔËÐгÌÐòʱ¾Í»áÌáʾ¡°ÊµÊ±´íÎóÌáʾ13¡±£¬¡°ÀàÐͲ»Æ¥Å䡱£¬Çó´óÉñ Ãǰïæ½â¾öһϣ¬ÈçºÎÈÃframeºÍtextÒ²¿ÉÒÔÍ϶¯¸Ä±ä´óС£¬£¬Ð¡µÜ²»Ê¤¸Ð¼¤¡£ |
» ²ÂÄãϲ»¶
293µ÷¼Á
ÒѾÓÐ3È˻ظ´
»úе¹¤³Ì264ѧ˶Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
264Çóµ÷¼Á
ÒѾÓÐ9È˻ظ´
Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
22408 266Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
Çóµ÷¼Á
ÒѾÓÐ14È˻ظ´
273Çóµ÷¼Á
ÒѾÓÐ43È˻ظ´
307Çóµ÷¼Á
ÒѾÓÐ13È˻ظ´
327Çóµ÷¼Á
ÒѾÓÐ7È˻ظ´
338Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
ÕÒµ½Ò»Ð©Ïà¹ØµÄ¾«»ªÌû×Ó£¬Ï£ÍûÓÐÓÃŶ~
¹ØÓÚvbµÄÄÚ´æ²»ÄÜreadÎÊÌâ
ÒѾÓÐ6È˻ظ´
ÇëÎʸ÷λ´óÉñVB6ºÍVB2010²î±ð´óÂð£¿VB6ÔÚWIN7ÉÏ¿ÉÒÔÓÃÂð?лл
ÒѾÓÐ4È˻ظ´
¿ÆÑдÓСľ³æ¿ªÊ¼£¬ÈËÈËΪÎÒ£¬ÎÒΪÈËÈË














»Ø¸´´ËÂ¥
µã»÷ÕâÀïËÑË÷¸ü¶àÏà¹Ø×ÊÔ´