تغییر ادیت تکس

[taha1371 84]

سلام من میخوام وقتی رو ادیت تکس کلیک میشه مثه شکل پایین بشه

قسمت کارمزد هست ریزش ابی شده و متنشم ابی شده و امده کوشه روش کلیک شده وگرنه مثال وزن طلا هس

[softir 459]

در هم اکنون، taha1371 گفته است :

سلام من میخوام وقتی رو ادیت تکس کلیک میشه مثه شکل پایین بشه

قسمت کارمزد هست ریزش ابی شده و متنشم ابی شده و امده کوشه روش کلیک شده وگرنه مثال وزن طلا هس

سلام

اون خط آبی که زیرش هست معمولا همیشه میاد ولی اگه بخواهی بقیه اش اعمال بشه باید این کار رو بکنی

Sub EditText1_FocusChanged (HasFocus As Boolean)
	If HasFocus = True Then
		EditText1.Gravity = Gravity.RIGHT
		EditText1.TextSize = 14
		EditText1.HintColor = Colors.Blue
	Else
		EditText1.Gravity = Gravity.CENTER
		EditText1.TextSize = 20
		EditText1.HintColor = Colors.White
	End If
End Sub

از قبل هم تو دیزاین می تونی رنگ متن رو رو آبی تغییر داده باشی

[taha1371 84]

در 38 دقیقه قبل، softir گفته است :

سلام

اون خط آبی که زیرش هست معمولا همیشه میاد ولی اگه بخواهی بقیه اش اعمال بشه باید این کار رو بکنی

Sub EditText1_FocusChanged (HasFocus As Boolean)
	If HasFocus = True Then
		EditText1.Gravity = Gravity.RIGHT
		EditText1.TextSize = 14
		EditText1.HintColor = Colors.Blue
	Else
		EditText1.Gravity = Gravity.CENTER
		EditText1.TextSize = 20
		EditText1.HintColor = Colors.White
	End If
End Sub

از قبل هم تو دیزاین می تونی رنگ متن رو رو آبی تغییر داده باشی

استاد نگاه من میخوام وقتی که کلیک کرد و متنم نوشت اینجوری بشه اون چیزسیکه تو ادیت تکسه بیاد بالاش

 

[softir 459]

در هم اکنون، taha1371 گفته است :

 

در هم اکنون، softir گفته است :

سلام

اون خط آبی که زیرش هست معمولا همیشه میاد ولی اگه بخواهی بقیه اش اعمال بشه باید این کار رو بکنی

Sub EditText1_FocusChanged (HasFocus As Boolean)
	If HasFocus = True Then
		EditText1.Gravity = Gravity.RIGHT
		EditText1.TextSize = 14
		EditText1.HintColor = Colors.Blue
	Else
		EditText1.Gravity = Gravity.CENTER
		EditText1.TextSize = 20
		EditText1.HintColor = Colors.White
	End If
End Sub

از قبل هم تو دیزاین می تونی رنگ متن رو رو آبی تغییر داده باشی

استاد نگاه من میخوام وقتی که کلیک کرد و متنم نوشت اینجوری بشه اون چیزسیکه تو ادیت تکسه بیاد بالاش

 

پس باید همین کد ها رو این شکلی بنویسی تو رویداد TextChanged

Sub EditText1_TextChanged (Old As String, New As String)
	If EditText1.Text <> "" Then
		EditText1.Gravity = Gravity.RIGHT
		EditText1.TextSize = 14
		EditText1.HintColor = Colors.Blue
	Else
		EditText1.Gravity = Gravity.CENTER
		EditText1.TextSize = 20
		EditText1.HintColor = Colors.White
	End If
End Sub

 

[taha1371 84]

در 2 ساعت قبل، softir گفته است :

پس باید همین کد ها رو این شکلی بنویسی تو رویداد TextChanged

Sub EditText1_TextChanged (Old As String, New As String)
	If EditText1.Text <> "" Then
		EditText1.Gravity = Gravity.RIGHT
		EditText1.TextSize = 14
		EditText1.HintColor = Colors.Blue
	Else
		EditText1.Gravity = Gravity.CENTER
		EditText1.TextSize = 20
		EditText1.HintColor = Colors.White
	End If
End Sub

 

 اساتید کارم نشد میشه راهنمایی کنید

[softir 459]

در هم اکنون، taha1371 گفته است :

 اساتید کارم نشد میشه راهنمایی کنید

بفرما اینم اون چیزی که می خواستی

http://s8.picofile.com/file/8275199168/Lebel_Jamp.zip.html