ویژوال بیسیک - برنامه تعویض دو حرف درج شده در تکست باکس

[i_lover3000]

میگم این تاپیک چرا قسمت سوالات نداره (یا داره من ندیدمش)

**********
یه آموزش می خوام که فقظ یک تکست باکس و یه دکمه داشته باشه که درون تکست بشه دو حرف وارد کنی بعد از زدن دکمه جای دو حرف با هم عوض بشه !!!

ولی ببخشید که سوال اینجا گذاشتم

 

[saalek110]

با سلام
برای اینکه در تکست باکس کاربر فقط بتواند 2 حرف وارد کند باید از پنجره پراپرتی صفت maxlength را برابر 2 کنید.

و برای تعویض این دو حرف من از دو تابع Left$ و Mid$ استفاده کردم. اولی به تعداد مشخص شده در ورودی تابع از چپ جدا می کند و دومی باز به تعداد خواسته شده و از میانه رشته که باز مکان میان رشته توسط ورودی های تابع مشخص می شود را جدا می کند.
از این سایت کمک گرفتم:
http://www.developerfusion.co.uk/show/69/3/

برنامه :
یک تکست باکس و یک دکمه به فرم بیافزایید و در رویداد کلیک دکمه برنامه زیر را بیافزایید:

Dim sString As String
Dim first_chr As String
Dim second_chr As String

' Fill the variable
sString = Text1.Text

first_chr = Left$(sString, 1)    ' reshteh,tedaad
second_chr = Mid$(sString, 2, 1) ' reshteh , makane shoroe,tedad


Text1.Text = second_chr + first_chr

==