منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] كيف اجعل ايقونة الفورم في جهة اليمين ؟؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : [vb6.0] كيف اجعل ايقونة الفورم في جهة اليمين ؟؟ (/showthread.php?tid=3677)

كيف اجعل ايقونة الفورم في جهة اليمين ؟؟ - Microformt - 20-08-14

الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل ايقونة الفورم في جهة اليمين ؟؟
ملاحة هامه
كيف اجعل ايقونة الفورم في جهة اليمين بدون أي تاثير على الفوم كامل

نامل من الله المساعدة والله يحفظكم ويرعاكم

RE: كيف اجعل ايقونة الفورم في جهة اليمين ؟؟ - AGASHE - 22-08-14

لقد حاولت عملها من قبل كما هو الحال في vb.net لكن فشلت

على ما اعتقد هذا شيء غير مدعوم في اللغة أصلا

RE: كيف اجعل ايقونة الفورم في جهة اليمين ؟؟ - AL_BRNS - 23-08-14

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

جرب التالي
كود :
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
Const ws = &H400000
Const gw = -20
Private Sub Form_Load()
Dim o As Long
o = GetWindowLong(hwnd, gw)
SetWindowLong hwnd, gw, o Or ws
End Sub

بالتوفيق

RE: كيف اجعل ايقونة الفورم في جهة اليمين ؟؟ - Microformt - 23-08-14

اخي العزيز
السلام عليكم ورحمة وبركاته
عند وضع الكود وتكبير الفورم انظر ماذا سوف يحصل ؟؟
والله يحفظكم ويرعاكم