عدم نمايش آيكن فرم

[romina2006]

سلام دوستان

1-چه طور مي تونم در حاليكه فرم داراي دكمه Close هستش بدون آيكن باشه و آيكن فرم نشون داده نشه

2-چه جوري ميشه محل دكمه هاي اصلي فرم رو به جاي سمت راست در سمت چپ نشون داد

[حمید محمودی]

1-چه طور مي تونم در حاليكه فرم داراي دكمه Close هستش بدون آيكن باشه و آيكن فرم نشون داده نشه


بیشتر توضیح بده! متوحه منظور شما نشدم... (اما اگه منظور شما borderstyle هست. خوب مقدار اونو به 5 یعنی sizable toolwindow تغییربده... این منظور شما بود؟؟)



2-چه جوري ميشه محل دكمه هاي اصلي فرم رو به جاي سمت راست در سمت چپ نشون داد

الان مثالی دم دست ندارم ولی اینکارو نکی بهتره چون قبلا یادمه باعث کرش شدن برنامه میشد...

[romina2006]

در مورد سوال اول وقتي كه borderstyle 1 باشه فرم بدون آيكن باشه

[حمید محمودی]

در مورد سوال اول : ساده ترین راهش استفاده از این آیکن در برنامه هست. (همین الان خودم ساختمش)

http://www.barnamenevis.org/forum/attachment.php?attachmentid=49265&d=1274279796

[FinalMOB]

در مورد سوال اول : ساده ترین راهش استفاده از این آیکن در برنامه هست. (همین الان خودم ساختمش)


با تشکر از Dcamera عزیز
ولی یه راه منطقی تر برای اینکار وجود داره



چه طور مي تونم در حاليكه فرم داراي دكمه Close هستش بدون آيكن باشه و آيكن فرم نشون داده نشه
1. BorderStyle فرم رو به شماره 3 یعنی Fixed Dialog تغییر بدین.
2. توی مشخصات فرم، یه قسمت داره به اسم Icon، حالا جلوش نوشته شده که (Icon) خوب؟ حالا روی قسمت دوم (همونی که پرانتز داره) کلیک کنید و بلافاصله کلید Delete از صفحه کلید رو بزنید. حالا می بینید که فرم بدون آیکون میشه.
اگه متوجه نشدید که روی کدوم قسمت کلیک کنید، ضمیمه رو نگاه کنید


چه جوري ميشه محل دكمه هاي اصلي فرم رو به جاي سمت راست در سمت چپ نشون داد
توی دات نت فقط کافیه RightToLeft فرم رو True کنید ولی توی vb انشالا کدش رو پیدا می کنم و براتون میذارم.

ولی اینکارو نکی بهتره چون قبلا یادمه باعث کرش شدن برنامه میشد
ولی برنامه کرش نمیشه ها :لبخند: شاید شما از یه کد خاص استفاده کردی که کرش شده

موفق باشید

[حمید محمودی]

سلام.




ولی یه راه منطقی تر برای اینکار وجود داره


این راهی که گفتین خیلی تابلو بود. اما نمیتونه کمک بکنه. و هم موقع اجرا و هم موقع کامپایل وقتی borderstyle=1 باشه یه آیکونی رو نمایش میده.

اون فردی که سوالو پرسیدن گفتن که :



در مورد سوال اول وقتي كه borderstyle 1 باشه فرم بدون آيكن باشه




ولی برنامه کرش نمیشه ها شاید شما از یه کد خاص استفاده کردی که کرش شده


شاید. اما در هر حال ضعف vb6 در خیلی از زمینه ها مشکل سازه....

[M.T.P]

دوست من این کد راست به چپ Form و تغییر Position کلیدهای فرم هست.
البته مشکل کرش هم در Resize فرم مشهود هست.:لبخند:




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 Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)
Private Sub Form_Load()
old = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
SetWindowLong Me.hWnd, GWL_EXSTYLE, old + &H400000
End Sub