کمک در مرد برنامه caps lock effect

[saman9999]

دوستان اين کد برنامه که برنامه caps lock effect

]

Option Explicit

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Const VK_CAPITAL = &H14

Private Const KEYEVENTF_KEYUP = &H2

Private Const KEYEVENTF_KEYDOWN = &H0

Private Sub Cmd_Click()

cmd.Caption = IIf(cmd.Caption = "PLAY", "PAUSE", "PLAY")



End Sub

Private Sub Command1_Click()

Timer1.Enabled = False

Timer2.Enabled = False

cmd.Caption = "PLAY"

End Sub





Private Sub Timer1_Timer()

Timer1.Interval = Text1.Text

Timer2.Interval = Text1.Text

If cmd.Caption = "PAUSE" Then

keybd_event VK_CAPITAL, 0, KEYEVENTF_KEYDOWN, 0

Timer1.Enabled = False

Timer2.Enabled = True

End If

End Sub

Private Sub Timer2_Timer()

keybd_event VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0

Timer2.Enabled = False

Timer1.Enabled = True

End Sub

من ميخوام يه چک مارک اضافه کنم که فقط حروف اول هر کلمه بزرگ باشه ميشه راهنمايی کنيد منو؟

[saman9999]

همچنان منتظرم کسی نيست راهنمايی کنه؟

[saman9999]

دوستان من 3 روز منتظرم کسی نيست کمک کنه؟

[vbhamed]

سلام

اينم راهش

Private Sub Text1_Change()



    On Error Resume Next



    Dim p%, s$, sp$, i%

    

    p = Text1.SelStart



    s = Text1



    s = LCase$(s)



    If Len(s) > 0 Then Mid$(s, 1, 1) = UCase$(Mid$(s, 1, 1))



    For i = 1 To Len(s) - 1



        Select Case Mid$(s, i, 1)

        

            Case "a" To "z", "A" To "Z"

            Case Else

                Mid$(s, i + 1, 1) = UCase$(Mid$(s, i + 1, 1))

                

        End Select

        

    Next

    

    Text1 = s

    Text1.SelStart = p

    

End Sub

[saman9999]

اما ini که شما دادی تو يه تکست باکسه مينويسه من ميخوام کلاً تو هرجا باشه مثل صفحه پم ياهو يا يهرجا که بشه نوشت ميشه راهنمايی کنيد

[vbhamed]

سلام

اگر راه راحت بخواين نوشتن در همين جا و Copy و Paste راه خوبيه
در غير اينصورت بايد هندل تكست باكس مورد نظر در برنامه هاي ويندوز يا نام كنترل درفرم وب رو بدست بياريد و با استفاده از توابع API مربوطه اين كار رو انجام بدين كه كار مشكلي ميشه

[saman9999]

نه کپی نه از راه دوم راستش متوجه نشدم ميشه راهنمايی کنيد من کد خدمو گزشم