نحوه کنار هم نوشتن دو کد مختلف

[hr0694]

سلام

من دو تا کد دارم یکی مربوط فقط فارسی نوشتن در تکست است و دیگری مربوط به دکمه کامند که وقتی دوبار کلیک شد متن تکست پاک شود حالا من وقتی این دو کد رو با هم در قسمت کد نویسی برنامه مینویسیم برنامه کار نمیکند ولی وقتی یکی از این دو کد را به تنهایی مینویسیم برنامه کار میکند اگه میشه سورسی برام درست کنید که هر دو کنار هم کار کنند و من میخام هر دو کد تو خود کدنویسی برنامه نوشته بشند نه توی یه ماژول جداگانه

کد اول
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

Private Sub Timer1_Timer()
Dim s As String
s = String(9, 0)
GetKeyboardLayoutName s
If Right(s, 4) = "409" & Chr(0) Then LoadKeyboardLayout "00000429", 1
End Sub

کد دوم
Dim Chek As Integer
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Chek = 2 Then Chek = 0
Timer2.Interval = 800
Chek = Chek + 1
If Chek >= 2 Then
Timer2 = False
Chek = 0
Text1 = ""
Else
Timer2 = True
End If
End Sub

Private Sub Timer2_Timer()
If Chek = 1 Then Chek = 0
End Sub

[محسن واژدی]

سلام
کد زیر را تست کنید:

Option Explicit
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Dim Chek As Integer

Private Sub Timer1_Timer()
Dim s As String
s = String(9, 0)
GetKeyboardLayoutName s
If Right(s, 4) = "409" & Chr(0) Then LoadKeyboardLayout "00000429", 1
End Sub


Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Chek = 2 Then Chek = 0
Timer2.Interval = 800
Chek = Chek + 1
If Chek >= 2 Then
Timer2 = False
Chek = 0
Text1 = ""
Else
Timer2 = True
End If
End Sub

Private Sub Timer2_Timer()
If Chek = 1 Then Chek = 0
End Sub

البته متوجه نشدم چه مشکلی وجود دارد چون با کنار هم قرار دادن دو کد در کنار هم، هم زبان با موفقیت فارسی میشود و هم با دوبار کلیک بر روی دکمه متن textbox حذف میشود

موفق باشید