?? settingfrm.frm
字號:
VERSION 5.00
Begin VB.Form SettingFrm
BorderStyle = 1 'Fixed Single
Caption = "設置 - SINE256"
ClientHeight = 3765
ClientLeft = 45
ClientTop = 330
ClientWidth = 3660
Icon = "SettingFrm.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3765
ScaleWidth = 3660
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox BufferTxt
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1560
TabIndex = 13
Text = "1048576"
Top = 2400
Width = 975
End
Begin VB.CommandButton CloseCmd
Caption = "關閉"
Height = 345
Left = 2640
TabIndex = 11
Top = 3210
Width = 795
End
Begin VB.CommandButton ApplyCmd
Caption = "應用"
Height = 345
Left = 120
TabIndex = 10
Top = 3195
Width = 825
End
Begin VB.TextBox passTxt
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1560
TabIndex = 4
Top = 480
Width = 1695
End
Begin VB.TextBox DecalTxt
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1560
TabIndex = 3
Text = "1"
Top = 1320
Width = 1695
End
Begin VB.TextBox StartTxt
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1560
TabIndex = 2
Text = "128"
Top = 1680
Width = 495
End
Begin VB.TextBox rangeTxt
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1560
TabIndex = 1
Text = "128"
Top = 2040
Width = 495
End
Begin VB.TextBox PatternTxt
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1560
TabIndex = 0
Text = "50000"
Top = 960
Width = 1695
End
Begin VB.Label Label5
Alignment = 2 'Center
Caption = "緩沖大小 :"
Height = 225
Left = 360
TabIndex = 12
Top = 2460
Width = 975
End
Begin VB.Label Label1
Caption = "密碼 :"
Height = 210
Left = 825
TabIndex = 9
Top = 510
Width = 645
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "Decal :"
Height = 255
Left = 720
TabIndex = 8
Top = 1320
Width = 735
End
Begin VB.Label Label3
Alignment = 2 'Center
Caption = "起始 :"
Height = 255
Left = 840
TabIndex = 7
Top = 1680
Width = 615
End
Begin VB.Label Label4
Caption = "范圍 :"
Height = 255
Left = 840
TabIndex = 6
Top = 2070
Width = 645
End
Begin VB.Label Label12
Caption = "再現樣式 :"
Height = 210
Left = 510
TabIndex = 5
Top = 1020
Width = 945
End
End
Attribute VB_Name = "SettingFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人為我，我為人人
'枕善居漢化收藏整理
'發布日期：2007/03/15
'描 述：SINE256加密可視化以及控制示例
'網 站：http://www.Mndsoft.com/ (VB6源碼博客)
'網 站：http://www.VbDnet.com/ (VB.NET源碼博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代碼別忘記給枕善居哦!
'****************************************************************************
Option Explicit
Private Sub ApplyCmd_Click()
password = passTxt.Text
decal = Val(DecalTxt.Text)
start = Val(StartTxt.Text)
rangE = Val(rangeTxt.Text)
PatternLen = Val(PatternTxt.Text)
Chunk = Val(BufferTxt.Text)
Dim Xb() As Double
'This draw the algorithm in a graph (This is the base stuff, nothing is mixed yet)
Xb() = cl.MakeGraph(decal, start, rangE, PatternLen) 'Initialize the graphic in the class and in the graphic (NEED TO BE INITIALIZED AT LEAST ONCE FOR IT TO WORK)
ChartIt2 MainFrm.AlgoChart, Xb() 'Refresh the top graph
End Sub
Private Sub CloseCmd_Click()
Me.Hide
End Sub
Private Sub Form_Load()
passTxt.Text = password
DecalTxt.Text = decal
StartTxt.Text = start
rangeTxt.Text = rangE
BufferTxt.Text = Chunk
PatternTxt.Text = PatternLen
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -