aminpprog
یک شنبه 21 خرداد 1391, 23:31 عصر
باسلام :
من در كد زير اگر به جاي s از كلمات لاتين استفاده كنم ، همان كلمات لاتين را نمايش ميدهد.
اما اگر به جاي s از كلمات فارسي استفاده كنم ، كلمات لاتين همان حروف را نمايش ميدهد. (مانند سلام كه مي شود ---> sghl)
حال مي خواهم بدانم بايد چه كار كنم كه حروف فارسي استفاده شده در s بدون تغيير در داس نمايش داده شوند ؟
Private Sub Command1_Click()
Dim s As String
Shell "cmd.exe"
Dim WinShell
Set WinShell = CreateObject("Wscript.shell")
s = "سلام"
WinShell.SendKeys s
End Sub
من در كد زير اگر به جاي s از كلمات لاتين استفاده كنم ، همان كلمات لاتين را نمايش ميدهد.
اما اگر به جاي s از كلمات فارسي استفاده كنم ، كلمات لاتين همان حروف را نمايش ميدهد. (مانند سلام كه مي شود ---> sghl)
حال مي خواهم بدانم بايد چه كار كنم كه حروف فارسي استفاده شده در s بدون تغيير در داس نمايش داده شوند ؟
Private Sub Command1_Click()
Dim s As String
Shell "cmd.exe"
Dim WinShell
Set WinShell = CreateObject("Wscript.shell")
s = "سلام"
WinShell.SendKeys s
End Sub