ubites
جمعه 28 آبان 1395, 16:54 عصر
سلام به همه دوستان و اساتید گرامی!
من دارم روی یک برنامه کوچیک کار میکنم که کارش اینطوریه که Length متن کپی شده در کلیپ بورد (clipboard) رو بررسی میکنه و اگه اندازه مورد نظر بود اونو با متن دلخواه جایگزین کنه!
مثلا اگر من عبارت salam رو کپی کردم برنامه بیاد ببینه اگه تعداد کاراکتر هاش 4 تاس عبارت test رو جایگزین salam در clipboard بکنه!اگر هم کمتر یا بیشتر بود کاری باهاش نداشته باشه!
من برنامه نویسیم خیلی در حد مبتدیه و این کدو نوشتم بدون اشکال اجرا میشه ولی جواب نمیده!
Private Sub Timer_Timer()
If My.Computer.Clipboard.ContainsText() Then
Dim adr As String
adr = My.Computer.Clipboard.GetText
If adr.Length = "34" Or adr.Length = "33" Or adr.Length = "32" Or adr.Length = "31" Or adr.Length = "30" Or adr.Length = "29" Or adr.Length = "28" Or adr.Length = "27" Then
If adr.Substring(0, 1) = "1" Then
My.Computer.Clipboard.SetText ("Adresse 1")
End If
End If
End If
End Sub
اشکالش کجاعه؟
ممنون میشم راهنماییم کنید!
من دارم روی یک برنامه کوچیک کار میکنم که کارش اینطوریه که Length متن کپی شده در کلیپ بورد (clipboard) رو بررسی میکنه و اگه اندازه مورد نظر بود اونو با متن دلخواه جایگزین کنه!
مثلا اگر من عبارت salam رو کپی کردم برنامه بیاد ببینه اگه تعداد کاراکتر هاش 4 تاس عبارت test رو جایگزین salam در clipboard بکنه!اگر هم کمتر یا بیشتر بود کاری باهاش نداشته باشه!
من برنامه نویسیم خیلی در حد مبتدیه و این کدو نوشتم بدون اشکال اجرا میشه ولی جواب نمیده!
Private Sub Timer_Timer()
If My.Computer.Clipboard.ContainsText() Then
Dim adr As String
adr = My.Computer.Clipboard.GetText
If adr.Length = "34" Or adr.Length = "33" Or adr.Length = "32" Or adr.Length = "31" Or adr.Length = "30" Or adr.Length = "29" Or adr.Length = "28" Or adr.Length = "27" Then
If adr.Substring(0, 1) = "1" Then
My.Computer.Clipboard.SetText ("Adresse 1")
End If
End If
End If
End Sub
اشکالش کجاعه؟
ممنون میشم راهنماییم کنید!