17 6

1
??????? ??????? (????? ????????( 17 ?????
??????? ??????? ?????????????? ???? 6
??? ???? ?????? ??????

• ???? ???????

2
??????

• ????? ??????? ??????? ???????? ?????? ???? 6
• ???? ????
• http//www.microsoft.com/middleeast/msdn/VB_aAppli
  c.aspx
• ????? ????????? ????????
• ????? ??????

3
??? ???????? ??????????

• ??????? Direction
• ??????? ???? ???? ???? ?? ?????? ??? ?????? ???
  ???? ?????
• ??????? ???????? ???????? ?? ?????? ??? ??????
• ??? ?????? ??????? BIDI ?? Bidirectional language
• ??????? Symbology
• ????? ?? ??? ????? ??? ?????
• ??????? ???????
• ????????? Usage
• ??????? - ??????? - ??? ???? ????? ?? ???
  ?????

4
?????? ???????? ???????

• ?? ?????? ???????? ?? ???? ??? ???? ?? ???????
  ???? ?????? ???? ?? ???
• ???? ????? ?? ????? ??? ??????? ?????? ???????
• ?????? ?? ?? ???????? ?????? 2000 ?Xp ??? ??????

5
?? ???? ???????? ???? ????????

• ???
• ??? ?????? ???? ????? ??? ????? ?????? controls
• ?????? ?? ????? ?????? ??? ????? ?????? ???????
  BiDi
• ??? ??????? ??????? ????? ????? ???? ???????
  ??????? service pack (SP3)
• ???? ???? ????? ??????? ?????? ?? SP6
• http//msdn2.microsoft.com/en-us/vstudio/Aa718364.
  aspx /
• ???? ???? ??????? VB6 ?? SQL Server 7.0 ?? ????
  ACCESS ????? ????? ?????

6
?????? ??????? Bidirectional

• ????? ???? ????????? ???? ???? ?????? ???? ????
  ?? ?????? ??? ??????
• ????? ???? ??????? ?? ?????? ??? ??????
• RTL ?? ?????? ??? ?????? Right To Left
• LTR ?? ?????? ??? ?????? Left To Right

7
??????? ?????? ??????? ?? VB6

• ???? ??? ??????? ??? ???? ???? ??? ???? ?????
  ???? ??????? ?????? ??????? ?????? ??? 32-????.
• ?? ????? ????? (property) Right-To-Left ???????
  ?? ????? ?????? controls ???????? forms
• ???? ??????? ?? ????? ????? (???? ???????? ???)
• ??? ????? ???????? ??????? ?? ??? ??????? Sort

8
Right-To-Left Property

• ???????
• object.RightToLeft
• ????? ??? true ?? False
• True ???? ?????? ????? ??? ??? ???? ??????? ???
  ???? ???? ???? ?? ?????? ?? ??? ???? ??????.
• False ???? ???? ?????? ????? ???? ?? ???? ???
  ?????? ???????

9
Right-To-Left Property
10
Right-To-Left Property
???? ?? ????? ?????? ???????? ???????? ??? ????
????? RightToLeft
11
Right-To-Left Property
???? ????? ??? ???????? ????? ?????? ?? ????
??????? (Mirroring)
12
??? ????? ??????http//download.microsoft.com/dow
nload/a/a/0/aa0901ff-5209-4e61-9c30-47e2289581ff/V
SDemo-Arabic.zip
13
??? ????? ??????
14
??? ????? ??????
15
????? ????? ????????? Windows API

• Windows API Function (Application Programming
  Interface)
• ??????? ??????? ???? ????? ???? ?????? ?????
• ???? ???? ?????? ?????????? ???????? ???????
  ???????? ????? ???? ??????? ?????????? ?? ????
  ????????? ????????
• ?????? ???? ??
• ??? ??????? ??? ????????? ?? ?????? ????
• ???? ????? ?????? ????? ???????? ?????????
  ??????? ?? ?????? ????
• ???? ??? Win32api.txt ??? ???? \Winapi ???
  ??????? ?????? ?? ???? ??? APIs
• ???? ???? ??? ????????? ?????? ???? ??? ???? ????
  ?????

16
????? ?????? ?? ???? ??????? (Mirroring)

• ??? ????? API ??????? ??? ????????? ??????
  General Declaration ?????? ???????? Form
• 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 WS_EX_LAYOUTRTL H400000
• Private Const GWL_EXSTYLE (-20)

17
????? ?????? ?? ???? ??????? (Mirroring)

• ????? ??? Form_Load ???? ?????
• Dim OldLong As Long
• OldLong GetWindowLong(Me.hwnd, GWL_EXSTYLE)
• SetWindowLong Me.hwnd, GWL_EXSTYLE, OldLong Or
  WS_EX_LAYOUTRTL

18
????? ?????? ?? ???? ??????? (Mirroring)

• ???? ?? ???? Component ??? ????? ???
  Form_Load, ??? XXXX ????? ?? ??? ??????
• OldLong GetWindowLong(XXXX.hwnd, GWL_EXSTYLE)
• SetWindowLong XXXX.hwnd, GWL_EXSTYLE, OldLong Or
  WS_EX_LAYOUTRTL

19
????? ?????? ?? ?????? ??????

• 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 WS_EX_LAYOUTRTL H400000
• Private Const GWL_EXSTYLE (-20(
• Private Sub Form_Load()
• Dim OldLong As Long
• OldLong GetWindowLong(Me.hwnd, GWL_EXSTYLE)
• SetWindowLong Me.hwnd, GWL_EXSTYLE, OldLong Or
  WS_EX_LAYOUTRTL
• OldLong GetWindowLong(Me.File1.hwnd,
  GWL_EXSTYLE)
• SetWindowLong Me.File1.hwnd, GWL_EXSTYLE, OldLong
  Or WS_EX_LAYOUTRTL
• OldLong GetWindowLong(Me.Dir1.hwnd,
  GWL_EXSTYLE)
• SetWindowLong Me.Dir1.hwnd, GWL_EXSTYLE, OldLong
  Or WS_EX_LAYOUTRTL
• End Sub

20
(No Transcript)
21
(No Transcript)
22
??????? ?????? ??????? ?? ???? ????????

• ???? ???????? RTL ?? LTR ??????? ??? ???? ?????
  RightToLeft
• ??? ???? True
• ????? ??????? ??????? ????????? (caption) ???????
  ???? ?? ?????? ??? ?????? (RTL) ????????? ?? ????
  ???????? ?????
• ????? ??????? ?? ???? ??????? ?? ?????? ???
  ?????? (RTL) ??????? ???? ????? ??? ?? ????
  ???????? ????? ???

23
??????

• ????? ??? HTML ???????? ??? DIR ??? ??
• RptLabel
• RptTextBox
• RptFunction controls
• ????? ?????? RTL ??? ???? ????? RightToLeft
  ?????? True
• DirRTL

24
????? RightToLeft ?? RptLabel

• ??? ????? ???? ???? ????? label ?? ????? ?? ???
  ????? RightToLeft ???? ?????? ?????? ??????
  ????? ??????? ?? ??????? ?????
• ??? ???? ???? ??????? RightToLeft ?? True
• ????? ????? ?? ??????? ????????? ?? ?????? ???
  ??????
• ?????? ???? ?????

25
????? RightToLeft ?? RptTextBox

• ??? ????? ???? ???? ???? ?? textbox ?? ????? ??
  ??? ????? RightToLeft ???? ?????? ?????? ??????
  ????? ??????? ?? ??????? ?????
• ??? ???? ???? ??????? RightToLeft ?? True
• ????? ????? ???? ?? ?????? ??? ??????
• ?????? ???? ?????

26
????? RightToLeft ?? RptFunction

• ??? ???? ???? ??????? RightToLeft ?? True
• ???? ??????? ???????????

27
????? Locale

• ?????????
• ??????
• ?? ????? ?????????
• ?????? ?????? ?????? ????? ???? ??????
• ??? ??????? ?????
• ??????? ???????? ?????? ?????
• ?????????? ????????

28
????? (Locale)

• ???? ?????? ????????? ???????? ??? ??????? ??
  ????? ??????????? ????????
• ???? ?????????? ?????
• ????? ?????
• ???? ???? ????????
• ??????? ??????
• ???????
• ??????

29
????? Locale

• ?????? ???????? ???????? ??????
• ???? ???? ????????
• ??? ????? ???? ???????? ?????????
• ???????? ???????
• ?????? ?? ??? ???????
• ?????? ????????? ?? ???????
• ????? ????
• ???? ?? ?????
• ?? ?????? ??? ?????? ?? ?? ?????? ??? ??????
• ????? ???????

30
?????? ??????? ???????? ?? ??????

• ??????
• ????
• ???
• ????????
• ?????
• ????
• ????????
• ?????

• ???????
• ???????
• ???
• ??????
• ??????
• ??????
• ?????
• ?????

31
??? ??????? ??????

• ??????? ???????? ?? ????????? ?? ???????? ???????
  ???????? ????????
• ?????? ??????? ????? VBA ???????? ???????? ??????
  ????? Calendar ???????? ??? VBA ???????
• VBA. Calendar value
• Value
• VbCalGreg 0
• VbCalHijri 1

32
???????

• ??? ?????? ??????? ????????
• ???? ????? ??????? ?? ????????? ????????? ???
  ???? ?????? ??? ????? ?????? ?????????
• ??? ?????? ??????? ??????
• ??? ?????? ??????? ????? ????
• ????? ?????? ??????? ????? ???? ?????? ?????? ???
  ????????

33
???????

• ?????? ???? ????? ?????? calendar (???????)
• Cdate Date
• DateAdd DateDiff
• DatePart DateSerial
• DateValue Day
• Format Month
• Weekday Year

34
????? ????? ??????? ?????? ?????

• ???? ????? ????? ????????? ???? ????
• ???? Windows Help (Win Help)
• ????? ????? ????? .rtf ?????? ????? ?? ???????
  ?????? ?? ?????? ??? ??????.
• ??????? ???? ????????? Help compiler ?????? ??
  ???
• ???? HTML

35
????? ????????? ????????

• 15 ???? ????? ??? ???????
• ?????? ??????? ??????
• ??? ???????
• ????? ??????? ????? ?????? ???????
• ????? ?????? ?? ??? ????
• ?????????? ?????? ?????
• ????? ????? ?? ??? ????????
• ????? ??????? ?? ????? ?????

36
????? ??????

• ????????

37
?????

• ?????? ????? ?????? ???? ?? ?? ??? ??? ???
  ??????? ????? ????