重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
如果这个窗体是主窗体的话,你只能隐藏,因为主窗体关闭的话程序就退出了。
目前创新互联已为近1000家的企业提供了网站建设、域名、网站空间、网站托管、企业网站设计、青羊网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
如果不是主窗体,可以用Form1.Close来关闭。
如果实在是想关闭,就得把程序启动设为sub
main而不是form。
再由sub
main来启动窗体,这样就没有主窗体了。
在该按纽的单击事件编写代码:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
在VB6的时候,使用:Unload me
在VB.NET里使用:Me.Close()
Private Sub Form2_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
End '退出后关闭软件
End Sub
'点击关闭按钮时弹出对话框判断是否退出
Private Sub Form2_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
'经典判断关闭法
If MessageBox.Show("是否退出?", "确认", MessageBoxButtons.OKCancel, MessageBoxIcon.Question,
MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Cancel Then
e.Cancel = True
Else
e.Cancel = False
End If
End Sub
this.ControlBox = false//最小化、最大化、关闭按钮全部消失
this.MinimizeBox = false//最小化按钮消失
this.MaximizeBox = false//最大化按钮消失
如果你只想隐藏关闭按钮的话可以参考
我来解答一下吧。
假设LZ的四张图片从左到右的文件名为1.jpg到4.jpg,存放在c:\img这个文件夹下
代码如下:
Public Class Form1
Private Sub Pic1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic1.MouseDown
Pic1.Image = Image.FromFile(c:\img\2.jpg)
End Sub
Private Sub Pic1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Pic1.MouseEnter
Pic1.Image = Image.FromFile(c:\img\1.jpg)
End Sub
Private Sub Pic1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Pic1.MouseLeave
Pic1.Image = Image.FromFile(c:\img\3.jpg)
End Sub
Private Sub Pic1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic1.MouseUp
Pic1.Image = Image.FromFile(c:\img\1.jpg)
End Sub
End Class
按这个思路看看吧,做最小化没什么问题