如何使vb主窗体show后马上自动播放一个音乐啊。

erplooya 2005-03-29 09:13:44

...全文

120 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

erplooya 2005-03-29

打赏
举报

谢谢。

wujingpeng 2005-03-29

打赏
举报

Private Sub Form_Load()
Me.MMControl1.Visible = False
Me.MMControl1.FileName = "d:\roger.wav"
Me.MMControl1.Command = "open"
Me.MMControl1.Command = "play"
End Sub

在码农的生活中，很多级码农都有这样的经历，会被一个小小的技术问题拦住，然后进度跟不上了，被老板XXXX一大通了。心情不爽了。好吧，这个曾经是我遇到拦路虎之一。但事实上不是什么大技术。技术就是一层纸，破了就破了。这是一个关于如何跨窗体操作控件或过程的一个例子。比如，你想用窗体A的按键来执行窗体B的文本框变色。 Imports System Imports System.Threading Imports System.Text Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load CheckForIllegalCrossThreadCalls = False '不写这行，会出错，不允许线程的数据写到TextBox1.Text 中去。 Form2.Show() End Sub Private Sub form1_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing ' If runThread.IsAlive = True Then runThread.Abort() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '用的是委托方式 Me.Invoke(New MethodInvoker(AddressOf THREAD2)) End Sub Private Sub THREAD2() Static j As Integer j = j + 1 TextBox1.Text = " 这是 [线程] 操作" & vbCrLf & _ " Button2被点了: " & j & " 次" & vbCrLf & "要求是from2.textbox.text= textbox1.text 。[问题]但为什么不能成功显示呢？" End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Form2.TextBox1.Text = TextBox1.Text End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Static j As Integer j = j + 1 TextBox1.Text = " 这是 [非线程] 操作" & vbCrLf & _ "Button3 点击了: " & j & " 次" & vbCrLf & _ "要求是from2.textbox.text= textbox1.text，可以成功显示，这个是对的。" End Sub End Class

VB6 获取当前打开窗口数量，如何获取当前打开窗口数量，本示例打开一个窗口后，在测试时会打开另外一个窗口，然后主窗口中会统计到这个打开的窗口，把当前打开窗口的数量填入文本框中。本程序可学习一下DoEvents()的用法。调用新窗口显示可参考以下代码：　　Private Sub Command1_Click() 　　 Form2.Show 　　 Call Form_Activate 　　End Sub 　　Private Sub Form_Activate() 　　 Text1.Text = DoEvents() 　　End Sub

适合VB+ADO+ACCESS初学者。设计窗体的详细操作步骤房产信息管理系统是以VB为开发平台、ADO和SQL为数据库引擎和操作语言、ACCES为数据库而开发的集房产信息添加、修改、删除、查找功能于一体的房产信息管理系统。本系统由1个主窗体和3个子窗体构成，分别为主窗体、添加房产信息窗体、修改房产信息窗体、查找房产信息窗体。主窗体界面及功能：包含主菜单、工具条和信息显示区及状态栏等元素。主菜单包含了系统的所有功能操作，工具条列出了常用的功能，信息显示区显示了数据库中的房产信息，状态栏显示了数据库中的房产信息总量、Caps Lock灯状态、Num Lock灯状态和实时的日期、时间等。详细设计： 1. 窗体启动过程：Main入口->检查是否重复启动程序->建立全局数据库连接->显示主窗体； 2. 窗体退出过程：关闭全局数据库连接->检查子窗体是否被加载并卸载已加载子窗体->卸载主窗体； 3.“添加房产信息”功能：加载“添加房产信息”窗体； 4.“修改房产信息”功能：检查数据库是否为空->检查Listview中是否有信息被选中->加载“修改房产信息”窗体； 5.“删除房产信息”功能：检查数据库是否为空->检查Listview中是否有信息被选中->确认删除选中的房产信息->搜索选中的房产信息并执行删除->调用House_Show更新主窗体信息显示区； 6.“查找房产信息”功能：检查数据库是否为空->加载查找房产信息窗体； 7.“显示全部信息”功能：调用House_Show刷新主窗体信息显示区内容。 “添加房产信息”窗体界面及功能：包含了五个文本框用于填写要添加的房产信息。详细设计：填写房产信息->点击添加按钮->调用KeyCheck进行关键字唯一性验证->调用Check检查输入的房产信息->调用AddHouse添加房产信息到数据库并调用House_Show更新主窗体信息显示区。 “修改房产信息”窗体界面及功能：同房产信息添加窗体一样，包含用于修改房产信息的五个文本框。详细设计：添加主窗体信息显示区内选中的房产信息到文本框->修改房产信息->点击修改按钮->调用Check检查输入的房产信息->调用EditHouse修改数据库中的房产信息并调用House_Show更新主窗体信息显示区。 “查找房产信息”窗体界面及功能：包含两个单选框和两个文本框用于确认查找依据和输入查找内容。详细设计：选择查找依据并输入查找内容->点击查找按钮->调用Check检查输入的查找内容->调用FindHouse1或FindHouse2进行查找并将结果显示到主窗体信息显示区。

WinForm 关闭子窗体时刷新父窗体的数据WinForm 关闭子窗体时刷新父窗体的数据

一般而言，在传统的VB6中父子窗体（诸如“闪屏”窗体是“父窗体”加载内容，然后启动自动关闭，启动主窗体，是子窗体）的交互中，我们只需按照这样的逻辑“按部照搬”地书写即可（假设“闪屏”窗体设置为启动窗体）： SplashScreen.Close() MainForm.Show() 但是在VB.NET或者C#中却不能这样写。因为这样写的结果是闪屏窗体“一闪而过”，接着啥也不会出现了。究其原因，是因为NET中一切都是“类”——闪屏窗体是一个类，这个类内部的某个事件内部引用了“主窗体”这个类，并且把它创造出来。现在你突然间关闭了“闪屏”窗体，意味着创建这个“主窗体”的UI线程被终止，自然属于这个

控件

1,451

社区成员

41,355

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章