34 lines
1.4 KiB
VB.net
34 lines
1.4 KiB
VB.net
Public Class Clipper
|
|
|
|
Public Sub New()
|
|
InitializeComponent()
|
|
Opacity = 0
|
|
FadeIn(Me, 20)
|
|
Guna2TextBox1.Select()
|
|
End Sub
|
|
|
|
Private Sub Clipper_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Try
|
|
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "BTC", Nothing) = Nothing Then
|
|
Guna2TextBox1.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "BTC", Nothing)
|
|
End If
|
|
|
|
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "ETH", Nothing) = Nothing Then
|
|
Guna2TextBox2.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "ETH", Nothing)
|
|
End If
|
|
|
|
If Not My.Computer.Registry.GetValue(SettingsHelper.RegSave, "TRC20", Nothing) = Nothing Then
|
|
Guna2TextBox3.Text = My.Computer.Registry.GetValue(SettingsHelper.RegSave, "TRC20", Nothing)
|
|
End If
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
|
|
If String.IsNullOrWhiteSpace(Guna2TextBox1.Text) Or String.IsNullOrWhiteSpace(Guna2TextBox2.Text) Or String.IsNullOrWhiteSpace(Guna2TextBox3.Text) Then
|
|
Else
|
|
DialogResult = DialogResult.OK
|
|
End If
|
|
End Sub
|
|
End Class |