vpngeeks VPNGeeks Review View offers » URL vpngeeks.com Reconnects unlimited Price monthly $ 8.00 Price 6 months $ 39.96 Price 12 months $ 60.00 Servers 7 IPs unknown Trial No Payment Paypal, Credit Card,, Amazon Payments, Payza, Skrill Clients Windows, Mac OS, Linux, iPhone, iPad Logfiles Yes Support Contact form Protocols OpenVPN, PPTP Filesharing Allowed Traffic Limit No Go to vpngeeks.com VPNGeeks – 29 Total Ratings with 1.00 / 5 possible Rating Points. Vpngeeks.com VPN Service Provider How To Download Free vpngeeks Premium Account Link 1 Free vpngeeks Premium Account Link 2 Free vpngeeks Premium Account Link 3 Free vpngeeks Premium Account Link 4 Free vpngeeks Premium Account Link 5 Free vpngeeks ...
Cara Membuat N Element Pada View Menggunakan Kode B4a | Tutorial B4a Indonesia
Pada dasarnya membuat view bisa dilakukan pada Designer, namun apa jadinya jika kalian mendapatkan kasus khusus, seperti membuat 1000 element panel atau switch pada halaman views tersebut? Sebenarnya kalian bisa membuat satu persatu sebanyak 1000 kali dan mengatur propertiesnya sebanyak 1000 kali juga.
Ya , bagus... besoknya kalian akan dipecat karena tidak efektif dalam melakukannya.
Selain membosankan, tentu akan memakan waktu jika melakukan pekerjaan berulang dengan pola yang sama tersebut.
Nah, karna itulah diberikan solusi membuat Layout menggunakan kode:
Kita ambil contoh kasus, dimana kalian diminta untuk membuat switch sebanyak N buah. Terserah berapa N nya karena kodenya akan tetap sama:
1.Kalian menggunakan Designer
Jika kalian menggunakan Designer, maka yang kalian lakukan lebih kurang seperti gambar dibawah ini:
Dan kalian tinggal copy dan atur sebanyak 1000 kali hehehe.
2. Kalian menggunakan kode
Contoh kodenya bisa kalian lihat dibawah ini:
Sub Globals
Private B4XSwitch1 As B4XSwitch
End Sub
Sub Activity_Create(FirstTime As Boolean)
For i = 1 To 20
AddSwitch(50dip, 40dip * i, i)
Next
End Sub
Sub AddSwitch (Left As Int, Top As Int, Tag As Object) As B4XSwitch
Activity.LoadLayout("B4XSwitch")
B4XSwitch1.mBase.Left = Left 'B4XSwitch1 global variable will point to the last one added
B4XSwitch1.mBase.Top = Top
B4XSwitch1.Tag = Tag
Return B4XSwitch1
End Sub
Sub B4XSwitch1_ValueChanged (Value As Boolean)
Dim switch As B4XSwitch = Sender
Log(switch.Tag)
End SubKesimpulannya:
Kalian lebih kurang akan mendapatkan hasil seperti dibawah ini jika menggunakan dan menjalankan kode yang ada diatas tersebut:
Tag: Tutorial B4a Indonesia, Tutorial B4a Pemula, Contoh Aplikasi B4a, B4a Bahasa Indonesia, Forum B4a Indonesia
Cara Membuat N Element Pada View Menggunakan Kode B4a | Tutorial B4a Indonesia

