منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تغيير حجم صندوق النص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تغيير حجم صندوق النص (/showthread.php?tid=34725)



تغيير حجم صندوق النص - dr.mostashar - 12-05-20

السلام عليكم 

هل يمكن التحكم بحجم صندوق النص بالماوس أثناء تشغيل الفورم 

وشكرا لكم


RE: تغيير حجم صندوق النص - AL_BRNS - 02-06-20

وعليكم السلام ورحمة الله وبركاته

جرب التالي

PHP كود :
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal hwnd As LongByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hwnd As LongByVal nIndex As LongByVal dwNewLong As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As LongByVal _
hWndInsertAfter 
As LongByVal X As LongByVal Y As LongByVal cx As Long_
ByVal cy 
As LongByVal wFlags As Long) As Long
Private Const SWP_DRAWFRAME = &H20
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOZORDER = &H4
Private Const SWP_FLAGS SWP_NOZORDER Or SWP_NOSIZE Or _
SWP_NOMOVE 
Or SWP_DRAWFRAME
Private Const GWL_STYLE = (-16)
Private Const 
WS_THICKFRAME = &H40000

Private Sub SetControlStyle(styleAs Control)
Dim r
If style Then
Call SetWindowLong
(X.hwndGWL_STYLEstyle)
Call SetWindowPos(X.hwndForm1.hwnd0000SWP_FLAGS)
End If
End Sub

Private Sub Form_Load()
Dim style As Long
style 
GetWindowLong(Text1.hwndGWL_STYLE)
style style Or WS_THICKFRAME
SetControlStyle style
Text1
End Sub 


بالتوفيق .


RE: تغيير حجم صندوق النص - Ahmed_Mansoor - 02-06-20

وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , شكرا جزيلا للأخ الكريم AL_BRNS على الكود الرائع الذي وضعه , قمت بعمل مثال يطبق هذا الكود على جميع أدوات التكست بوكس وإمكانية إيقاف عملية التحجيم , بالتوفيق .