کپی کردن فقط اعداد داخل textbox به یک textbox دیگر در ویژوال بیسیک

[mohsen_vb_6]

مثلاً

Textbox1.text = "Salam234Bye456k56 (يا هرچيزه ديگه اي)

بعد از کپی شدن (لازم به ذکر است که کپی رو خوده برنامه انجام میده البته با استفاده از فوکوس و سند کی و ...) تو یه Textbox دیگه بشه (البته در ویژوال بیسیک) :

"Textbox2.text = "23445656
تورو خدا اگه جوابشو می دونین خیلی زود ... ممنون

[vbhamed]

سلام

حالا چرا كپي رو با فوكوس و SendKey انجام بدي
برنامه زير اعداد Text1 رو تو Text2 ميزاره و ضمنا اونها رو تو كليب بورد هم كپي مي كنه


Dim s1$, s2$

s1 = text1
Dim i%
For i = 1 To Len(s1)
If IsNumeric(Mid$(s1, i, 1)) Then
s2 = s2 & Mid$(s1, i, 1)
End If
Next

text2 = s2
Clipboard.Clear
Clipboard.SetText s2

[mohsen_vb_6]

سلام آقا حامد ... ممنون از جوابتون
ولی من می خوام قسمتی از textt1 رو به text2 کپی کنم (البته اعداد قسمتی از قسمت text1 )

[vbhamed]

سلام آقا حامد ... ممنون از جوابتون
ولی من می خوام قسمتی از textt1 رو به text2 کپی کنم (البته اعداد قسمتی از قسمت text1 )

سلام
اينم كاري نداره
تو اون خط كه نوشته شده s1 = text1 بنويسيد

s1 = mid$(text1, p, L)
كه p محل شروع و L طول مورد نظر از محل شروع هست، ضمنا P ميتونه برابر SelStart+1 و L مي تونه برابر SelLength در نظر گرفته بشه

[tolerant_mahdieh]

سلام،
من كد چند تا برنامه رو مي خواستم-به زبان VB- اگر كمكم كنيد ممنون مي شم:
1.برنامه اي بنويسيد كه براي شما يك مربع ترسيم كند.
2.برنامه اي را بنويسيد كه اسمي را بگيرد و چاپ كند سپس تصويري را روي formنشان دهد سپس نوار scrollرا فعال كند.
3.برنامه اي بنويسيد كه عددي را در مبناي 10 گرفته و به مبناي دو ببرد.
من زياد وقت ندارم. بايد اين برنامه ها رو آماده كنم.
لطفا كمكم كنيد.ممنون