www.pudn.com > 牛顿法解方程之混沌情况1.32源代码.zip > frmAbout.frm
VERSION 5.00
Begin VB.Form frmAbout
BorderStyle = 3 'Fixed Dialog
Caption = "关于我的应用程序"
ClientHeight = 2970
ClientLeft = 5505
ClientTop = 1920
ClientWidth = 5685
ClipControls = 0 'False
FillStyle = 0 'Solid
Icon = "frmAbout.frx":0000
LinkTopic = "Form2"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2970
ScaleWidth = 5685
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture2
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
ClipControls = 0 'False
FillStyle = 0 'Solid
Height = 480
Left = 1005
Picture = "frmAbout.frx":0CCA
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 12
Top = 315
Visible = 0 'False
Width = 480
End
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
ClipControls = 0 'False
FillStyle = 0 'Solid
Height = 480
Left = 405
Picture = "frmAbout.frx":190C
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 11
Top = 885
Visible = 0 'False
Width = 480
End
Begin VB.Timer Timer1
Interval = 100
Left = 975
Top = 975
End
Begin VB.PictureBox picIcon
AutoRedraw = -1 'True
AutoSize = -1 'True
BorderStyle = 0 'None
ClipControls = 0 'False
FillStyle = 0 'Solid
Height = 480
Left = 420
Picture = "frmAbout.frx":254E
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 1
Top = 345
Width = 480
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Caption = "确定"
Default = -1 'True
Height = 345
Left = 3630
TabIndex = 0
Top = 2430
Width = 1500
End
Begin VB.Label Label9
Caption = "http://album.chinaren.com/album.php3?aname=user_housisong"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 210
Left = 240
MouseIcon = "frmAbout.frx":3190
MousePointer = 99 'Custom
TabIndex = 10
Top = 1440
Width = 5250
End
Begin VB.Label Label8
Caption = "欢迎访问(数学艺术--分形与混沌图片)："
ForeColor = &H80000017&
Height = 180
Left = 1140
TabIndex = 9
Top = 1245
Width = 3315
End
Begin VB.Label Label7
Caption = "HouSisong@263.net"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 210
Left = 2295
MouseIcon = "frmAbout.frx":349A
MousePointer = 99 'Custom
TabIndex = 8
Top = 960
Width = 1590
End
Begin VB.Label Label6
Caption = "E-mail："
Height = 225
Left = 1545
TabIndex = 7
Top = 960
Width = 735
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "本版程序由伍胜富先生赞助开发，在此表示感谢！"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 255
Left = 390
TabIndex = 6
Top = 1800
Width = 4965
End
Begin VB.Label Label1
Caption = "警告：HouSisong 版权所有。"
ForeColor = &H00000000&
Height = 255
Left = 420
TabIndex = 5
Top = 2550
Width = 2430
End
Begin VB.Label Label4
Caption = "版本： 1.3.2"
Height = 255
Left = 1545
TabIndex = 4
Top = 450
Width = 1200
End
Begin VB.Label Label3
Caption = "牛顿法解方程之混沌情况"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 270
Left = 1545
TabIndex = 3
Top = 120
Width = 2970
End
Begin VB.Label Label2
Caption = "作者： 侯思松"
Height = 255
Left = 1530
TabIndex = 2
Top = 720
Width = 1275
End
Begin VB.Line Line1
BorderColor = &H00808080&
BorderStyle = 6 'Inside Solid
Index = 1
X1 = 225
X2 = 5445
Y1 = 2265
Y2 = 2265
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
BorderWidth = 2
Index = 0
X1 = 180
X2 = 5400
Y1 = 2265
Y2 = 2265
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim R As Long, G As Long, B As Long '简单动画用
Private Sub cmdOK_Click()
'退出窗口
Unload Me ' Unload form 可以从内存中卸载窗口，以节约内存
End Sub
Private Sub Form_Load()
R = Rnd * 511
G = Rnd * 511
B = Rnd * 511
End Sub
Private Sub Label7_Click()
'调用默认邮件处理程序编辑、发送邮件
Call ShellExecute(Me.hwnd, "open", "mailto:HouSisong@263.net", 0, 0, SW_NORMAL)
End Sub
Private Sub Label9_Click()
'调用默认网络浏览程序访问网页
Call ShellExecute(Me.hwnd, "open", "http://album.chinaren.com/album.php3?aname=user_housisong", 0, 0, SW_NORMAL)
End Sub
Private Sub Timer1_Timer()
'简单动画
'Picture1保存源图片，Picture2保存得到的图片，picIcon显示图片
Dim i As Long, j As Long
Dim RR As Long, GG As Long, BB As Long
Dim tempSe As Long, temp As Long
On Error Resume Next
R = R + 7
G = G + 5
B = B + 4
If R > 511 Then R = 0
If G > 511 Then G = 0
If B > 511 Then B = 0
For i = 0 To 31
For j = 0 To 31
'tempSe = Me.Picture1.Point(i, j) 和下面一句作用相同
tempSe = GetPixel(Me.Picture1.hdc, i, j)
BB = 255 - ((((tempSe \ 256 \ 256) + B) Mod 511) - 255)
GG = 255 - ((((tempSe \ 256 Mod 256) + G) Mod 511) - 255)
RR = 255 - ((((tempSe Mod 256) + R) Mod 511) - 255)
'Me.Picture2.PSet (i, j), RGB(RR, GG, BB) 和下面一句作用相同
temp = SetPixelV(Me.Picture2.hdc, i, j, RGB(RR, GG, BB))
Next j
Next i
picIcon.Picture = Me.Picture2.Image
DoEvents
End Sub
'=======================================================