پنجره های کاملا Right to Left

[علی خدایاری]

چه طور میشه پنجره ها رو کاملا راست به چپ کرد حتی دکمه های Close و ...

[اوبالیت به بو]

البتهدکمه های Close و Max و... راست به چپ هست ولی خوب....
شما قبل از اینکه رویه فرم مورد نظرتون شی رو قرار بدین Right to Left فرمتون رو True کنید. اون وقت تمام اشیایی که روی فرم قرار میگیرن این حالت رو دارن.
در واقع شما هر بلایی سر فرمتون بیارین اون بلا برای اشیا به ارث می رسه.

[علی خدایاری]

دوست عزیز منظور من پنجره هایه که کاملا حالت فارسی دارن. حتی دکمه های Close و ...

[soheil_programmer]

چه طور میشه پنجره ها رو کاملا راست به چپ کرد حتی دکمه های Close و ...

با سلام

من درست متوجه نشدم شما میخواهید متن مربوط به Close,Minimize,Maximize پنجره ها رو و منوی با شده در قسمت Toolbar پنجره های پروژه تان را عوض کنید؟؟

یا حق

[علی خدایاری]

نه دوست عزیز
منظور من پنجره فارسیه که توش حتی دکمه ها هم برعکس استاندارد ویندوزه. تو سایت یه کد پیدا کرم که این کار رو انجام میده ولی مشکل اینکه کلا با تغییر سایز مشکل داره

Const GWL_EXSTYLE = -20
Const WS_EX_LAYOUTRTL = &H400000
Const WS_EX_NOINHERITLAYOUT = &H100000
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 Sub Form_Load()
Dim OldLong ََAs Long
OldLong = GetWindowLong(hWnd, GWL_EXSTYLE)
SetWindowLong hWnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL Or WS_EX_NOINHERITLAYOUT
End Sub
میشه این مشکل را حل کنید ممنونم.

[bobrus]

دوست عزیز فکر می کنم که این کارت رو راه بندازه روش اختراعی خودمه
فرم رو خودم ساختم التبه خیلی سریع و با وقت کم شما می تونی با استفاده از این روش فرمهای خوشگلتر بسازی
البته شاید سر فرصت یه ocx ازش در آوردم

[علی خدایاری]

فکر می کنم کافی باشه
از لطف شما ممنونم