黑色海岸线论坛 - Powered by Discuz! Board

标题: [原创]编写一个飞舞在桌面的小天使 [打印本页]

作者: 无条件为你 时间: 2006-4-3 23:55 标题: [原创]编写一个飞舞在桌面的小天使

[这个贴子最后由无条件为你在 2006/04/05 00:08am 第 2 次编辑]

作者: 默数悲伤 时间: 2006-4-3 23:58 标题: [原创]编写一个飞舞在桌面的小天使

运行失败哦...

作者: 无条件为你 时间: 2006-4-4 00:14 标题: [原创]编写一个飞舞在桌面的小天使

你可能是没有安装Microsoft Visual Studio .NET 2003以上版本，要跟上步伐，现在新一代编程软件已经开发出来了，不要总是把精力投入到C++里面。
至少要安装Microsoft Visual Studio .NET 2003框架，否则EXE会提示找不到dll文件。

作者: 无条件为你 时间: 2006-4-4 23:45 标题: [原创]编写一个飞舞在桌面的小天使

[这个贴子最后由无条件为你在 2006/04/05 09:58pm 第 3 次编辑] 公布原代码： Public Class Form1 Inherits System.Windows.Forms.Form #Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New() ';该调用是 Windows 窗体设计器所必需的。 InitializeComponent() ';在 InitializeComponent() 调用之后添加任何初始化 End Sub ';窗体重写 dispose 以清理组件列表。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub ';Windows 窗体设计器所必需的 Private components As System.ComponentModel.IContainer ';注意: 以下过程是 Windows 窗体设计器所必需的 ';可以使用 Windows 窗体设计器修改此过程。 ';不要使用代码编辑器修改它。 Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents TextBox1 As System.Windows.Forms.TextBox Friend WithEvents TextBox2 As System.Windows.Forms.TextBox Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Timer1 As System.Windows.Forms.Timer Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1)) Me.Label1 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.TextBox1 = New System.Windows.Forms.TextBox Me.TextBox2 = New System.Windows.Forms.TextBox Me.Button1 = New System.Windows.Forms.Button Me.Button2 = New System.Windows.Forms.Button Me.Label3 = New System.Windows.Forms.Label Me.Timer1 = New System.Windows.Forms.Timer(Me.components) Me.SuspendLayout() '; ';Label1 '; Me.Label1.AutoSize = True Me.Label1.Font = New System.Drawing.Font("华文行楷", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte)) Me.Label1.ForeColor = System.Drawing.Color.Yellow Me.Label1.Location = New System.Drawing.Point(32, 32) Me.Label1.Name = "Label1" Me.Label1.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label1.Size = New System.Drawing.Size(83, 30) Me.Label1.TabIndex = 0 Me.Label1.Text = "用户名" '; ';Label2 '; Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("华文行楷", 18.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte)) Me.Label2.ForeColor = System.Drawing.Color.Yellow Me.Label2.Location = New System.Drawing.Point(32, 72) Me.Label2.Name = "Label2" Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label2.Size = New System.Drawing.Size(82, 30) Me.Label2.TabIndex = 0 Me.Label2.Text = "密码" '; ';TextBox1 '; Me.TextBox1.AutoSize = False Me.TextBox1.Location = New System.Drawing.Point(128, 32) Me.TextBox1.MaxLength = 5 Me.TextBox1.Name = "TextBox1" Me.TextBox1.Size = New System.Drawing.Size(112, 24) Me.TextBox1.TabIndex = 1 Me.TextBox1.Text = "" '; ';TextBox2 '; Me.TextBox2.AutoSize = False Me.TextBox2.CharacterCasing = System.Windows.Forms.CharacterCasing.Lower Me.TextBox2.Location = New System.Drawing.Point(128, 72) Me.TextBox2.MaxLength = 10 Me.TextBox2.Name = "TextBox2" Me.TextBox2.PasswordChar = Microsoft.VisualBasic.ChrW(42) Me.TextBox2.Size = New System.Drawing.Size(112, 24) Me.TextBox2.TabIndex = 2 Me.TextBox2.Text = "" '; ';Button1 '; Me.Button1.BackColor = System.Drawing.Color.Red Me.Button1.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte)) Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)) Me.Button1.Location = New System.Drawing.Point(56, 120) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(72, 32) Me.Button1.TabIndex = 3 Me.Button1.Text = "进入" Me.Button1.TextAlign = System.Drawing.ContentAlignment.BottomCenter '; ';Button2 '; Me.Button2.BackColor = System.Drawing.Color.Chocolate Me.Button2.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.Button2.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte)) Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(0, Byte), CType(192, Byte)) Me.Button2.Location = New System.Drawing.Point(160, 120) Me.Button2.Name = "Button2" Me.Button2.Size = New System.Drawing.Size(72, 32) Me.Button2.TabIndex = 4 Me.Button2.Text = "退出" Me.Button2.TextAlign = System.Drawing.ContentAlignment.BottomCenter '; ';Label3 '; Me.Label3.BackColor = System.Drawing.SystemColors.Window Me.Label3.Cursor = System.Windows.Forms.Cursors.Hand Me.Label3.ForeColor = System.Drawing.Color.Transparent Me.Label3.Image = CType(resources.GetObject("Label3.Image"), System.Drawing.Image) Me.Label3.ImageAlign = System.Drawing.ContentAlignment.TopCenter Me.Label3.Location = New System.Drawing.Point(80, 8) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(112, 16) Me.Label3.TabIndex = 5 '; ';Timer1 '; Me.Timer1.Enabled = True '; ';Form1 '; Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14) Me.BackColor = System.Drawing.Color.Green Me.CancelButton = Me.Button2 Me.ClientSize = New System.Drawing.Size(296, 182) Me.ControlBox = False Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.TextBox1) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.TextBox2) Me.Controls.Add(Me.Button2) Me.KeyPreview = True Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "Form1" Me.ShowInTaskbar = False Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "→无条件⊙欢迎您！联系QQ:335342" Me.TopMost = True Me.ResumeLayout(False) End Sub #End Region Dim df, rndd As Boolean Dim ox, oy As Integer Function mwy() Button1.Hide() Button2.Hide() Label2.Hide() TextBox1.Hide() TextBox2.Hide() Me.ClientSize = New System.Drawing.Size(104, 128) ';改变原窗体大小。 Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Me.BackColor = System.Drawing.SystemColors.Window Me.TransparencyKey = System.Drawing.Color.Transparent Me.ResumeLayout(False) Me.Label3.Show() ';显示Label3控件 Me.Label3.Dock = System.Windows.Forms.DockStyle.Fill ';设置布满窗体 rndd = True End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label3.Hide() ';载入时最先执行隐藏Label3的操作。 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click MsgBox(Chr(13) & "您已退出成功，欢迎下次再来！", MsgBoxStyle.Information, "→无条件为你⊙欢迎您！联系QQ:335342") Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If (TextBox2.Text = "mwy") Then MsgBox(Chr(13) & Chr(9) & "无条件为你，欢迎您！" & Chr(13) & Chr(13) & "今天是：" & Now.Year & "年" & Now.Month & "月" & Now.Day & "日，已经登录成功！ ", MsgBoxStyle.Question, "→无条件为你⊙欢迎您！联系QQ:335342") mwy() ';这里有改动，有删节。原来引用数据库进行验证，这里没有必要。 Else MsgBox(Chr(13) & "用户名或密码，严重错误，请向QQ335342联系索取！", MsgBoxStyle.Critical, "→无条件为你⊙欢迎您！联系QQ:335342") End If End Sub Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter Button1.BackColor = System.Drawing.Color.DarkOrange Button1.Font = New System.Drawing.Font("楷体_GB2312", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte)) Button1.Text = "喜欢你" End Sub Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave Me.Button1.BackColor = System.Drawing.Color.Red Me.Button1.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte)) Me.Button1.Text = "进入" End Sub Private Sub Label3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label3.DoubleClick MsgBox(Chr(13) & "亲爱的，你想做什么呢？发现你双击了我！想关闭我请按键盘上的 Q 键！", MsgBoxStyle.Critical, "→无条件为你⊙程序设计，联系QQ335342") End Sub Private Sub Label3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseDown If e.Button = Windows.Forms.MouseButtons.Left Then ox = e.X oy = e.Y df = True ';鼠标按下标记。 Else MsgBox(Chr(13) & "欢迎" & TextBox1.Text & "的大驾光临！今天是：" & Now.Year & "年" & Now.Month & "月" & Now.Day & "日", MsgBoxStyle.Information, "→无条件为你⊙程序设计，联系QQ335342") End If End Sub Private Sub Label1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp If e.Button = Windows.Forms.MouseButtons.Left Then df = False ';鼠标抬起标记。 End If End Sub Private Sub Label3_MouseMove1(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseMove If df Then ';如果条件成立，则说明用鼠标拖曳过“小天使”，所以应做相应的移动。 Me.Left += e.X - ox Me.Top += e.Y - oy End If End Sub Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) Dim SC_CLOSE As Integer = 61536 Dim WM_SYSCOMMAND As Integer = 274 ';判断是系统消息，是不是关闭窗体？,使Alt+F4无效 If m.Msg = WM_SYSCOMMAND AndAlso m.WParam.ToInt32 = SC_CLOSE Then MsgBox(Chr(13) & "呵呵，干什么呢？想用Alt+F4关闭我，没门！你用鼠标双击我试试！", MsgBoxStyle.AbortRetryIgnore, "→无条件为你⊙程序设计，联系QQ335342") Exit Sub End If MyBase.WndProc(m) End Sub Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress If Char.ToLower(e.KeyChar) <> "q" Then If rndd Then MsgBox(Chr(13) & "呵呵，干什么呢？发现你按了键盘！请按Q键关闭我！", MsgBoxStyle.AbortRetryIgnore, "→无条件为你⊙程序设计，联系QQ335342") Else MsgBox(Chr(13) & "亲爱的，轻轻的我走了，正如我轻轻的来……", MsgBoxStyle.Critical, "→无条件为你⊙程序设计，联系QQ335342") Me.Close() End If End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If rndd Then If (Me.Top < 0) Then Me.Left += (-1) ^ Int(Rnd(1)) * CInt(Rnd() * 3) Me.Top += CInt(Rnd() * 5) ElseIf Me.Top > Screen.PrimaryScreen.Bounds.Height - Me.Height Then Me.Left += (-1) ^ Int(Rnd()) * CInt(Rnd() * 3) Me.Top -= CInt(Rnd() * 5) ElseIf Me.Left < 0 Then Me.Left += CInt(Rnd() * 5) Me.Top += (-1) ^ Int(Rnd(1)) * CInt(Rnd() * 3) '; ElseIf Me.Left > Screen.PrimaryScreen.Bounds.Width - Me.Width Then Me.Left -= CInt(Rnd() * 3) Me.Top += (-1) ^ Int(Rnd(1)) * CInt(Rnd() * 3) Else ';正常情况。 Me.Left += (-1) ^ Int(Rnd(1)) * CInt(Rnd() * 3) Me.Top += (-1) ^ Int(Rnd(1)) * CInt(Rnd() * 3) '; End If End If End Sub End Class 其中包含有随机数的那段定时器代码写得不怎么好。主要是不能很好的控制小天使的起落。密码正确进入后，会在桌面处产生一只飞翔的小天使，不停的飞，飞累了会落在屏幕右下角。双击右击都会有提示，按“Q”键关闭。其实自我感觉用VB.net编写程序很简单，事件都是系统自带的，由于是事先定义好的，所以从开发时间角度来说，效率比C++高得多。我用半个小时写的程序，如果改用C++至少需要三天。为了便于初学者学者，程序关键部分都有注释，让高手们见笑了！ VB.net有很好的操作界面，每输入命令的前几个字符，后面会给出提示，如果格式不对或语法错误会自动产生正确的格式和语法。实在解决不了的错误会事先加出下划线给出提示，不像C++那样只有在编译的时候才能发现错误。编写这个小程序刚刚开始用了两个小时，现在如果再让我写类似的程序只需要20分钟就可以搞定。

欢迎光临黑色海岸线论坛 (http://bbs.thysea.com/)