عمودی کردن Switch Slide

[mrs 7]

با عرض سلام و خسته نباشید به اساتید و مهندسان گرامی

من این سورس سوییچ اسلاید را از انجمن دانلود کردم ولی این به صورت افقی تغییر می کند
اگر بخواهم عمودی این اتفاق بیافتد چه کاری باید بکنم؟؟

لطفا راهنمایی وکمک بفرماییدد

تایپک دانلود شده:: تایپک مورد نظر

فایل آقا مجید در قسمت پایین تایپک را دانلود کردم.

 

[mrs 7]

اساتید و مهندسان محترم

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

Sub slideswitch_open(swview As Object,token As Object)
	Log("Slide  OPEN (Token = "&token&")")
	If swview Is SlideSwitch Then
		Dim ssw As SlideSwitch = swview
		ssw.Color = Colors.ARGB(Rnd(100, 150),Rnd(20, 800),Rnd(80, 160),Rnd(161, 255))
	End If	
End Sub
Sub slideswitch_close(swview As Object,token As Object)
	Log("Slide CLOSE (Token = "&token&")")
	If swview Is SlideSwitch Then
		Dim ssw As SlideSwitch = swview
		ssw.Color = Colors.ARGB(Rnd(100, 150),Rnd(20, 800),Rnd(80, 160),Rnd(161, 255))
	End If	
End Sub

Sub SetNinePatchButton(Btn As Button, DefaultImage As String, PressedImage As String)
	
   Dim r As Reflector
   Dim package As String
   Dim idDefault, idPressed As Int
   package = r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
   idDefault = r.GetStaticField(package & ".R$drawable", DefaultImage)
   idPressed = r.GetStaticField(package & ".R$drawable", PressedImage)
   r.Target = r.GetContext
   r.Target = r.RunMethod("getResources")
   Dim sd As StateListDrawable
   sd.Initialize
   sd.AddState(sd.State_Pressed, r.RunMethod2("getDrawable", idPressed, "java.lang.int"))
   sd.AddCatchAllState( r.RunMethod2("getDrawable", idDefault, "java.lang.int"))
   Btn.Background = sd
   
End Sub
Sub SetNinePatchDrawable(Control As View, ImageName As String)
	
   Dim r As Reflector
   Dim package As String
   Dim id As Int
   package = r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
   id = r.GetStaticField(package & ".R$drawable", ImageName)
   r.Target = r.GetContext
   r.Target = r.RunMethod("getResources")
   Control.Background = r.RunMethod2("getDrawable", id, "java.lang.int")
   
End Sub

 

[mrs 7]

استاتید محترم
لطف می تونید کنید و کمکم کنید.

[محمد رشوند 1,209]

در 1 ساعت قبل، mrs گفته است :

با عرض سلام و خسته نباشید به اساتید و مهندسان گرامی

من این سورس سوییچ اسلاید را از انجمن دانلود کردم ولی این به صورت افقی تغییر می کند
اگر بخواهم عمودی این اتفاق بیافتد چه کاری باید بکنم؟؟

لطفا راهنمایی وکمک بفرماییدد

تایپک دانلود شده:: تایپک مورد نظر

فایل آقا مجید در قسمت پایین تایپک را دانلود کردم.

 

 

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