重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1、如果不用用户控件,那就用Panel,单击按钮时显示相应的Panel,隐藏不相关的Panel。
创新互联公司-专业网站定制、快速模板网站建设、高性价比合川网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式合川网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖合川地区。费用合理售后完善,十多年实体公司更值得信赖。
2、E死了:
ADD按钮的Click事件:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'要先新建一个Form2窗口,里面有一个文本输入框TextBox1和一个按钮Button1。
Form2.Show() '打开编辑窗口。
End Sub
Form2窗口的Button1按钮事件Click:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text "" Then '当TextBox1的类容不为空时。
Form1.ListView1.Items.Add(TextBox1.Text)'把TextBox1的类容添加到ListView中。
Me.Close()'添加完后关闭窗口。
Else ’Else,如果为空。
Dim k = MsgBox("类容为空!" Chr(10) "是否取消添加?", vbYesNo)'提醒用户是否取消向ListView添加类容。
If k = vbYes Then '用户点击确认时。
Me.Close() '取消操作。
End If
End If
End Sub
新建Form2只要点“项目”“添加Windows窗体”,在弹出的对话框中的“名称”写为“Form2.vb”,再“创建”,就行了。之后在里面添加相应的用户控件。
vb中有例子,你可以尝试自行研究。
方法:工程
-
添加窗体
-
选项对话框。这个选项对话框已经有相关的应用代码。
不过你可以尝试人性化的自定义。方法:
工程
-
部件
-
microsoft
windows
common
controls
*.*
点解tabstrip图标,添加到窗体。
右键点击tabstrip,选择属性,对tabstrip进行自定义。
点击选项卡,在标题栏填写类似新建、现存、最新等名字。如果需要添加选项卡,可以点击插入选项卡按钮
实现点击切换:我比较喜欢在窗体中添加frame,点击选项卡则显示相应的frame。例如:
private
sub
tabstripsite_click()
'设置选项卡点击显示情况
for
counter
=
to
tabstripsite.tabs.count
-
1
'从0开始计算判断所点击的选项卡
select
case
tabstripsite.selecteditem.caption
'判断选中的选项卡的标题栏(caption)的值
case
frasitebasic.caption
frasitebasic.visible
=
true
'设置visible状态
frasiteowner.visible
=
true
frasitelocal.visible
=
false
frasitepower.visible
=
false
case
frasitelocal.caption
frasitebasic.visible
=
false
frasiteowner.visible
=
false
frasitelocal.visible
=
true
frasitepower.visible
=
false
case
frasitepower.caption
frasitebasic.visible
=
false
frasiteowner.visible
=
false
frasitelocal.visible
=
false
frasitepower.visible
=
true
end
select
next
end
sub
==========
希望能帮上一点忙
登陆按钮里写:
private void button1_Click(object sender, EventArgs e)
{
Form2 fo1 = new Form2();
fo1.Show();
this.Visible=false;
}
第2个窗体的关闭事件里写
private void Form2_FormClosed(object sender, FormClosedEventArgs e)
{
Application.Exit();
}
这样就可以了
me.dispose(); 这个是释放本对象的资源,,有时候直接把这个对象就清理了,,登陆窗体如果是入口窗体的话,,这么写就等于Application.Exit();
直接关整个应用程序了
插红旗噢 我还去vs里敲了一下
VB中有例子,你可以尝试自行研究。
方法:工程
-
添加窗体
-
选项对话框。这个选项对话框已经有相关的应用代码。
不过你可以尝试人性化的自定义。方法:
工程
-
部件
-
Microsoft
Windows
Common
Controls
*.*
点解TabStrip图标,添加到窗体。
右键点击TabStrip,选择属性,对TabStrip进行自定义。
点击选项卡,在标题栏填写类似新建、现存、最新等名字。如果需要添加选项卡,可以点击插入选项卡按钮
实现点击切换:我比较喜欢在窗体中添加Frame,点击选项卡则显示相应的Frame。例如:
Private
Sub
TabStripSite_Click()
'设置选项卡点击显示情况
For
Counter
=
To
TabStripSite.Tabs.Count
-
1
'从0开始计算判断所点击的选项卡
Select
Case
TabStripSite.SelectedItem.Caption
'判断选中的选项卡的标题栏(Caption)的值
Case
FraSiteBasic.Caption
FraSiteBasic.Visible
=
True
'设置Visible状态
FraSiteOwner.Visible
=
True
FraSiteLocal.Visible
=
False
FraSitePower.Visible
=
False
Case
FraSiteLocal.Caption
FraSiteBasic.Visible
=
False
FraSiteOwner.Visible
=
False
FraSiteLocal.Visible
=
True
FraSitePower.Visible
=
False
Case
FraSitePower.Caption
FraSiteBasic.Visible
=
False
FraSiteOwner.Visible
=
False
FraSiteLocal.Visible
=
False
FraSitePower.Visible
=
True
End
Select
Next
End
Sub
==========
希望能帮上一点忙
me.dispose()
楼主针对这个问题我也纠结过很久不过就在刚刚我找到了问题所在:
还是用me.close()
打开
项目
》
最下面一行有一个属性》
应用程序》下面
有一个关机模式
改为:当最后一个窗体关闭时。。。注意
me.close要写在窗体show()后面
例如
写成
f2.show()
me.close()
不要写成
me.close()
f2.show()