مشکل فول اسکرین شدن EditBox

[milad7091 10]

با سلام و خسته نباشید.

وقتی که توی برنامه روی ادیت ها کلیک میکنم فول اسکرین میشه. میخوام وقتی کسی میخواست چیزی تایپ کنه اندازه Edit من تغییر نکنه و فقط صفحه کلید ظاهر بشه.

توی کامپیوتر که تست میکنم مشکلی ندارم ولی توی هر گوشی که چک میکنم اینجوری میشه.

اینم کد تعریف edit من.

("EditText1.Initialize("EditText1
EditText1.Typeface= Main.FontAsli
EditText1.TextColor =Colors.Black
EditText1.TextSize= 26*Main.ScaleSize
EditText1.InputType=EditText1.INPUT_TYPE_NUMBERS
EditText1.Text="0"
EditText1.Wrap= False
(Panel2.AddView(EditText1,1%X,1%y,78%x,9%y

[milad7091 10]

کسی نبود مارو کمک کنه؟

[Elyas Erfani 3,582]

سلام

فول اسکرین شدنشو ک مشکل نداشتید

یکم بیشتر توضیح بدید موقع تایپ میخواید چیکا کنید دقیقا ؟؟

[مهدی کفشگر 548]

1-اگه ادیت تکست رو از دیزاینر اد کردید دیگه نیازی به اینشیالایز نیست.

اگه مشکل از مورد بالا نبود، احتمالا خط آخر یک مشکلی داره...چک کنید بازم..

[milad7091 10]

سایز من اصلا مشکلی نداره وقتی که صفحه لود میشه. فقط وقتی میخوام متنی وارد کنم میاد edit منو فول اسکرین میکنه. وقتی بک میزنم دوباره میاد ب حالت اول و متن هم وارد شده.

میخوام توی حالت فوکوس اینجوری نشه.

[مهدی کفشگر 548]

پس کل کد های اکتیویتی رو قرار بدید ببینم چیکار کردید!

[milad7091 10]

#Region Activity Attributes

#FullScreen: True

#IncludeTitle: False

#End Region

Sub Process_Globals

'These global variables will be declared once when the application starts.

'These variables can be accessed from all modules.

End Sub

Sub Globals

'These global variables will be redeclared each time the activity is created.

'These variables can only be accessed from this module.

Private Panel1 As Panel

Private Spinner1 As ComboBox

Private Spinner2 As ComboBox

Private Spinner3 As ComboBox

Private Cr As Cursor

Dim TypeGroup As Map

Dim TypeSubGroup As Map

Dim TypeHesab As Map

Private Spinner4 As ComboBox

Private Spinner5 As ComboBox

Private Spinner6 As ComboBox

Dim DateShamsiNow As String

Private Panel2 As Panel

Private Label1 As Label

Private EditText1 As EditText

Private Panel3 As Panel

Private Panel4 As Panel

Private Panel5 As Panel

Private Label3 As Label

Private Label4 As Label

Private Label2 As Label

Private Panel6 As Panel

Private Label5 As Label

Private EditText2 As EditText

Private Panel7 As Panel

Private Label6 As Label

Private Label7 As Label

Private Label8 As Label

Private Label9 As Label

Private Label10 As Label

End Sub

Sub Activity_Create(FirstTime As Boolean)

'Do not forget to load the layout file created with the visual designer. For example:

Panel1.Initialize("")

Panel1.Color=Colors.RGB(207,207,0)

Activity.AddView(Panel1,0,0,100%x,100%y)

TypeGroup.Initialize

TypeSubGroup.Initialize

TypeHesab.Initialize

Set_Size

Dim i1 As Int

Try

Cr = Main.SQL1.ExecQuery("Select * from Tbl_Type_Group_Daramad")

For i1 = 0 To Cr.RowCount-1

Cr.Position = i1

Spinner1.AddItems(Cr.GetString("Type_Group_Daramad_Name"),Cr.GetString("Type_Group_Daramad_ID"))

Next

Catch

i1=0

End Try

Try

Cr = Main.SQL1.ExecQuery("Select * from Tbl_Type_Daramad")

For i1 = 0 To Cr.RowCount-1

Cr.Position = i1

Spinner2.AddItems(Cr.GetString("Type_Daramad_Name"),Cr.GetString("Type_Daramad_ID"))

Next

Catch

i1=0

End Try

' Try

Cr = Main.SQL1.ExecQuery("Select * from Tbl_Hesab")

For i1 = 0 To Cr.RowCount-1

Cr.Position = i1

Spinner3.AddItems(Cr.GetString("Hesab_Name")&" ["&MyCode.NumToDig3(Cr.GetString("Hesab_Mojodi"))&"]",Cr.GetString("Hesab_ID"))

Next

' Catch

i1=0

' End Try

For i = 1 To 31

If i<10 Then

Spinner4.AddItems("0"&i,i)

Else

Spinner4.AddItems(i,i)

End If

Next

Dim Year As Int

Year = DateTime.GetYear(DateTime.Now)-621

For i = Year-1 To Year+1

Spinner6.AddItems(i,i)

Next

Spinner5.AddItems("فروردین",0)

Spinner5.AddItems("اردیبهشت",1)

Spinner5.AddItems("خرداد",2)

Spinner5.AddItems("تیر",3)

Spinner5.AddItems("مرداد",4)

Spinner5.AddItems("شهریور",5)

Spinner5.AddItems("مهر",6)

Spinner5.AddItems("آبان",7)

Spinner5.AddItems("آذر",8)

Spinner5.AddItems("دی",9)

Spinner5.AddItems("بهمن",10)

Spinner5.AddItems("اسفند",11)

DateTime.DateFormat="yyyy/MM/dd"

DateShamsiNow = MyCode.ChangeToShamsi(DateTime.Date(DateTime.Now))

Spinner1.SetIndex(0)

Spinner2.SetIndex(0)

Spinner3.SetIndex(0)

Spinner4.SetIndex((DateShamsiNow.SubString2(8,10))-1)

Spinner5.SetIndex((DateShamsiNow.SubString2(5,7))-1)

Spinner6.SetIndex(Spinner6.IndexOf(DateShamsiNow.SubString2(0,4)))

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Set_Size()

Dim ColorDrawable1 As ColorDrawable

ColorDrawable1.Initialize(Colors.RGB(237,237,0), 10dip)

Dim ColorDrawable2 As ColorDrawable

ColorDrawable2.Initialize2(Colors.ARGB(100,176,224,230), 10dip,2,Colors.White)

Panel2.Initialize("")

Panel2.Background = ColorDrawable1

Panel1.AddView(Panel2,0.5%x,10%y,99%x,11%y)

Panel3.Initialize("")

Panel3.Background = ColorDrawable1

Panel1.AddView(Panel3,0.5%x,Panel2.Top+Panel2.Height+0.5%y,99%x,Panel2.Height)

Panel4.Initialize("")

Panel4.Background = ColorDrawable1

Panel1.AddView(Panel4,0.5%x,Panel3.Top+Panel2.Height+0.5%y,99%x,Panel2.Height)

Panel5.Initialize("")

Panel5.Background = ColorDrawable1

Panel1.AddView(Panel5,0.5%x,Panel4.Top+Panel2.Height+0.5%y,99%x,Panel2.Height)

Panel6.Initialize("")

Panel6.Background = ColorDrawable1

Panel1.AddView(Panel6,0.5%x,Panel5.Top+Panel2.Height+0.5%y,99%x,Panel2.Height)

Panel7.Initialize("")

Panel7.Background = ColorDrawable1

Panel1.AddView(Panel7,0.5%x,Panel6.Top+Panel2.Height+0.5%y,99%x,Panel2.Height+5%Y)

EditText1.Initialize("EditText1")

EditText1.Typeface= Main.FontAsli

EditText1.TextColor =Colors.Black

EditText1.TextSize= 26*Main.ScaleSize

EditText1.InputType=EditText1.INPUT_TYPE_NUMBERS

EditText1.Text="0"

EditText1.Wrap= False

Panel2.AddView(EditText1,1%X,1%y,78%x,9%y)

EditText2.Initialize("EditText2")

EditText2.Typeface= Main.FontAsli

EditText2.TextColor =Colors.Black

EditText2.TextSize= 26*Main.ScaleSize*0.85

EditText2.Gravity=Bit.Or(Gravity.RIGHT, Gravity.TOP)

Panel7.AddView(EditText2,1%X,1.5%y,78%x,13%y)

Label1.Initialize("")

Label1.Color = Colors.RGB(237,237,0)

Label1.Typeface= Main.FontAsli

Label1.TextColor =Colors.Black

Label1.TextSize= 30*Main.ScaleSize*0.85

Label1.TextColor = EditText1.TextColor

Label1.Gravity=Bit.Or(Gravity.LEFT, Gravity.CENTER_HORIZONTAL)

Label1.Text="مبلغ"

Panel2.AddView(Label1,80%x,1%y,18%x,10%y)

Label2.Initialize("")

Label2.Color = Colors.RGB(237,237,0)

Label2.Typeface= Main.FontAsli

Label2.TextColor =Colors.Black

Label2.TextSize= 30*Main.ScaleSize*0.85

Label2.TextColor = EditText1.TextColor

Label2.Gravity=Bit.Or(Gravity.LEFT, Gravity.CENTER_HORIZONTAL)

Label2.Text="گروه اصلی"

Panel3.AddView(Label2,80%x,1%y,18%x,10%y)

Label3.Initialize("")

Label3.Color = Colors.RGB(237,237,0)

Label3.Typeface= Main.FontAsli

Label3.TextColor =Colors.Black

Label3.TextSize= 30*Main.ScaleSize*0.85

Label3.TextColor = EditText1.TextColor

Label3.Gravity=Bit.Or(Gravity.LEFT, Gravity.CENTER_HORIZONTAL)

Label3.Text="زیر گروه"

Panel4.AddView(Label3,80%x,1%y,18%x,10%y)

Label4.Initialize("")

Label4.Color = Colors.RGB(237,237,0)

Label4.Typeface= Main.FontAsli

Label4.TextColor =Colors.Black

Label4.TextSize= 30*Main.ScaleSize*0.85

Label4.TextColor = EditText1.TextColor

Label4.Gravity=Bit.Or(Gravity.LEFT, Gravity.CENTER_HORIZONTAL)

Label4.Text="عنوان حساب"

Panel5.AddView(Label4,80%x,1%y,18%x,10%y)

Label5.Initialize("")

Label5.Color = Colors.RGB(237,237,0)

Label5.Typeface= Main.FontAsli

Label5.TextColor =Colors.Black

Label5.TextSize= 30*Main.ScaleSize*0.85

Label5.TextColor = EditText1.TextColor

Label5.Gravity=Bit.Or(Gravity.LEFT, Gravity.CENTER_HORIZONTAL)

Label5.Text="تاریخ"

Panel6.AddView(Label5,80%x,1%y,18%x,10%y)

Label6.Initialize("")

Label6.Color = Colors.RGB(237,237,0)

Label6.Typeface= Main.FontAsli

Label6.TextColor =Colors.Black

Label6.TextSize= 30*Main.ScaleSize*0.85

Label6.TextColor = EditText1.TextColor

Label6.Gravity=Bit.Or(Gravity.LEFT, Gravity.CENTER_HORIZONTAL)

Label6.Text="توضیحات"

Panel7.AddView(Label6,80%x,1%y,18%x,10%y)

Label7.Initialize("Label7")

Label7.Background=ColorDrawable2

Label7.Typeface= Main.FontAsli

Label7.TextColor =Colors.Black

Label7.TextSize= 35*Main.ScaleSize*0.85

Label7.TextColor = EditText1.TextColor

Label7.Gravity=Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)

Label7.Text="ذخیره"

Panel1.AddView(Label7,60%x,(100%y-16%y),30%x,15%y)

Label8.Initialize("Label8")

Label8.Background=ColorDrawable2

Label8.Typeface= Main.FontAsli

Label8.TextColor =Colors.Black

Label8.TextSize= 35*Main.ScaleSize*0.85

Label8.TextColor = EditText1.TextColor

Label8.Gravity=Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)

Label8.Text="بازگشت به منوی قبل"

Panel1.AddView(Label8,10%x,(100%y-16%y),30%x,15%y)

Label9.Initialize("Label9")

Label9.Color=Colors.White

Label9.Typeface= Main.FontAsli

Label9.TextColor =Colors.Black

Label9.TextSize= 30*Main.ScaleSize*0.85

Label9.TextColor = Colors.Gray

Label9.Gravity=Bit.Or(Gravity.LEFT, Gravity.CENTER_HORIZONTAL)

Label9.Text= "0"

Panel2.AddView(Label9,(EditText1.Width /2),EditText1.Top+1%y,EditText1.Width /2,EditText1.Height-2.5%y)

Label10.Initialize("Label9")

Label10.Color=Colors.RGB(207,207,0)

Label10.Typeface= Main.FontAsli

Label10.TextColor =Colors.Black

Label10.TextSize= 30*Main.ScaleSize*0.85

Label10.TextColor = Colors.Black

Label10.Gravity=Bit.Or(Gravity.CENTER_VERTICAL, Gravity.CENTER_HORIZONTAL)

Label10.Text= "ثبت درآمد جدید"

Panel1.AddView(Label10,0,0,100%x,10%y)

Spinner1.Initialize("FormDaramad","Spinner1")

Spinner1.DesignerCreateView(Activity,1.5%x,Panel3.Top+EditText1.Top,78%x,EditText1.Height,"گروه اصلی")

Spinner1.SetSize(25*Main.ScaleSize)

Spinner1.SetTypeface(Main.FontAsli)

Spinner2.Initialize("Spinner2","")

Spinner2.DesignerCreateView(Activity,1.5%x,Panel4.Top+EditText1.Top,78%x,EditText1.Height,"زیر گروه")

Spinner2.SetSize(25*Main.ScaleSize)

Spinner2.SetTypeface(Main.FontAsli)

Spinner3.Initialize("Spinner3","")

Spinner3.DesignerCreateView(Activity,1.5%x,Panel5.Top+EditText1.Top,78%x,EditText1.Height,"عنوان حساب")

Spinner3.SetSize(25*Main.ScaleSize)

Spinner3.SetTypeface(Main.FontAsli)

Spinner4.Initialize("Spinner4","")

Spinner4.DesignerCreateView(Activity,64%x,Panel6.Top+EditText1.Top,15%x,EditText1.Height,"روز")

Spinner4.SetSize(25*Main.ScaleSize)

Spinner4.SetTypeface(Main.FontAsli)

Spinner5.Initialize("Spinner4","")

Spinner5.DesignerCreateView(Activity,22%x,Panel6.Top+EditText1.Top,41%x,EditText1.Height,"ماه")

Spinner5.SetSize(25*Main.ScaleSize)

Spinner5.SetTypeface(Main.FontAsli)

Spinner6.Initialize("Spinner6","")

Spinner6.DesignerCreateView(Activity,EditText1.Left ,Panel6.Top+EditText1.Top,20%x,EditText1.Height,"سال")

Spinner6.SetSize(25*Main.ScaleSize)

Spinner6.SetTypeface(Main.FontAsli)

End Sub

Sub EditText1_TextChanged (Old As String, New As String)

If IsNumber(New)= False And New.Length >0 Then EditText1.Text = Old

Label9.Text = MyCode.NumToDig3(New)

End Sub

Sub EditText1_FocusChanged (HasFocus As Boolean)

If HasFocus= True And EditText1.Text="0" Then EditText1.Text = ""

If HasFocus= False And EditText1.Text="" Then EditText1.Text = "0"

End Sub

Sub Label7_Click

CreateDate

Activity.Finish

End Sub

Sub Label8_Click

Activity.Finish

End Sub

Sub CreateDate()

DateShamsiNow=MyCode.CreateDate(Spinner6.SelectIndexValue,Spinner5.SelectIndex+1,Spinner4.SelectIndex)

End Sub

Sub Activity_Touch (Action As Int, X As Float, Y As Float)

Spinner1.Hide

Spinner2.Hide

Spinner3.Hide

Spinner4.Hide

Spinner5.Hide

Spinner6.Hide

End Sub

[milad7091 10]

اینم نوع ساخته شده منه توی Main

	FontAsli = Typeface.LoadFromAssets("AdobeArabic-Bold.ttf")

یادم رفت بگم. این Spinnerها طراحیش ماله خودمه. واسه اینه یکم کدهاش فرق میکنه.

 

دستت طلا.