animasi label

Trik this was utilized to make tag animations moves, flicker by use of Timer's function and component.

1

2. For properties's arrangement component You can see on table hereunder.

Table 1.4 Managing properties component

Control’s Name	Properties	Point
RadioButton 1	Text	Berkedip
RadioButton 2	Text	Berjalan kanan ke kiri
RadioButton 3	Text	Berjalan bawah ke atas
Label1	Text	Hisyam
Timer1	Enabled	true
	Interval	100

3.      Hereafter You click icon View Code, then code's typing programs as hereunder.

1 2	Imports VB = Microsoft.VisualBasic Public Class Form1 Dim Animasi, MA, XI, KOM As String End Class

4.      Hereafter clicks double on form's sheet code's typing pestle programs as hereunder.

1	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Animasi = "Hisyam "     End Sub

5.      Then You click double on Timer1's component, then code typing programs as hereunder.

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
1	If Me.RadioButton1.Checked = True Then
2	Timer1.Interval = 250
3	Me.Label1.Visible = Not Me.Label1.Visible
4	ElseIf Me.RadioButton2.Checked = True Then
5	Timer1.Interval = 100
6	Label1.Visible = True
7	On Error Resume Next
8	MA = VB.Left(Animasi, 1)
9	XI = VB.Len(Animasi)
10	KOM = VB.Right(Animasi, XI - 1)
11	Animasi = KOM + MA
12	Animasi = KOM + MA
13	Me.Label1.Text = Animasi
14	ElseIf Me.RadioButton3.Checked = True Then
15	Timer1.Interval = 100
16	Label1.Visible = True
17	If Label1.Top < Me.Height - Me.Height - Label1.Height Then
18	Label1.Top = Me.Height - 1
19	Label1.Top = Label1.Top - 25
20	Else
21	Label1.Top = Label1.Top - 25
22	End If
23	End If End Sub End Class

Read more »

Posted in: VB

Menghilangkan Folder Option

Trik ini digunakan untuk menghilangkan menu folder option pada computer Anda, agar tidak dapat diubah oleh sembarang user.

1.     1.   Pada form letakkan dua komponen Button. Atur posisidan properties komponen seperti gambarberikut ini.

Gambar 1.1 Menambah Dan Mengatur Komponen

1.       2. Kemudian untuk pengaturan propertiesseperti table dibawah ini.

Tabel 1.2mengatur properties komponen.

ama Control	Properties	Nilai
Button 1	Text	Hilangkan Folder Option
Button 2	Text	Tampilkan Folder Option

2.     3.  Kemudian Anda tambahkan project Module, lalu pada project ModuleAnda Copy kode program di bawah ini.

<br /> Module Module1<br /> Public Sub FolderOption(ByVal Aktif As Boolean)<br /> Dim HKCM As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine<br /> Dim key As Microsoft.Win32.RegistryKey = HKCM.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\Explorer")<br /> key.SetValue("NoFolderOptions", IIf(Aktif, 0, 1), Microsoft.Win32.RegistryValueKind.DWord)<br /> End Sub<br /> End Module<br />

1.      4.  Selanjutnya Anda klik ganda pada Button1, lalu copy kode program dibawah ini.

<br /> Public Class Form1<br /> <br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> FolderOption(False)<br /> End Sub<br />

1.      5.  Terakhir Anda klik ganda pada Button2, lalu copy kode program dibawah ini.

<br /> Public Class Form1<br /> <br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> FolderOption(True)<br /> End Sub<br /> End Class<br />

1.       6. Lihatlah bedanya

Gambar 1.3 Sebelum

Gambar 1.4 Sesudah

Read more »

Posted in: VB