想找一个vb高手,帮我设计一个vb程序设计。如果愿意,请留下联系方式啊。分值是一定不会少的。

请问有人可以帮我作一个简单的VB 程序设计吗?作个“媒体播放器”,谢谢!_百度知道
请问有人可以帮我作一个简单的VB 程序设计吗?作个“媒体播放器”,谢谢!
*;avivideo&MMControl1; ThenMMControl1.DeviceType = &Else.Min = 1Slider1.mand = & Then MMControl1;*.Value = MMControl1.ShowOpenfilename = CmmDialog1.hWndMMControl1;ElseIf filename Like &open&quot.mpg& Or filename Like &*;ElseIf filename Like &quot: End SubPrivate Sub Timer1_Timer()Slider1;MMControl1;*.mid&quot.Lengthline1;close& Or filename Like &quot.filename = filenameMMControl1: GoTo line1End IfMMControl1.DeviceType = &quot.Max = MMControl1.filenamefilename = StrConv(filename.mp3&quotOption ExplicitDim filename As StringPrivate Sub Form_Load()End SubPrivate Sub mnuopen_Click()CmmDialog1.DeviceType = &quot.avi&*;mand = & Then MMControl1.DeviceType = &ElseIf filename Like &*.rmi&quot.hWndDisplay = Picture1; Then MMControl1;mpegvideo&sequencer&quot, vbLowerCase)If filename Like &quot.From = 0Slider1
其他类似问题
媒体播放器的相关知识
按默认排序
其他3条回答
留下邮箱,我发给你我有,你需要的话
vb中有一个windowsmediaplay控件,可以实现播放器。
找工作的吧,杭州恒生出的就是这个题目,用WINDOWSMEDIAPLAY就可以实现,
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁请高手帮忙设计一个VB程序!_百度知道
请高手帮忙设计一个VB程序!
(2) 在“编辑”菜单中添加一个“追加”选项、大方:姓名:(1) 名片显示格式得体:菜单、地址;(4) 在“编辑”菜单中添加一个“删除”选项编写一个名片管理系统说明,使用该选项可删除当前名片、修改。其中地址最好使用多行编辑控件。要求;(6) 在“查看”菜单中添加一个“后翻”选项、编辑控件、删除;(7) 将名片夹文件存盘、查阅和存储名片等功能。系统可管理多张名片,名片按字母顺序存放。(2) 程序应有建立;(3) 在“编辑”菜单中添加一个“修改”选项: (1) 名片中包括下列内容,使用该选项可弹出上述对话框修改当前名片、电话号码;(5) 在“查看”菜单中添加一个“前翻” 使用该选项可查看前一个名片,使用该选项可查看下一条名片。(3) 要点,使用该选项可弹出一对话框输入名片内容,并可读出文件对原有名片进行编辑,并将新名片添到名片夹中、文件
我有更好的答案
巧妇难为无米之炊
有没有money?有的话资料可以发到zhu_
兄弟啊!做你这东西也算是一个小点的系统了,20分是没人做的.
其他类似问题
请高手帮忙的相关知识
您可能关注的推广回答者:回答者:回答者:
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁关于VB的一个题.我想问一下.怎样设计一个程序.当输入的是数字时.窗体显示“正确”当输入字母或其他字符的时候.窗体显示“错误”怎么样让计算机判定输入的是不是数字啊?我是不知道用哪个字符串。才能然电_百度作业帮
关于VB的一个题.我想问一下.怎样设计一个程序.当输入的是数字时.窗体显示“正确”当输入字母或其他字符的时候.窗体显示“错误”怎么样让计算机判定输入的是不是数字啊?我是不知道用哪个字符串。才能然电脑识别我输入的是数字。
用正则,现判断是数字.如if 数字 then 正确 else 错误
您可能关注的推广回答者:vb程序设计的问题,求好心人帮忙,设计一个求解一元二次方程Ax²+Bx+C=0的程序(A、B、C的值是任意的)_百度知道
vb程序设计的问题,求好心人帮忙,设计一个求解一元二次方程Ax²+Bx+C=0的程序(A、B、C的值是任意的)
我有更好的答案
按默认排序
Text)c = Val(Text3; 0 Thenit = MsgBox(&)Elsex = (-b + Sqr(Δ)) &#47,界面就你自己去搞定了;a≠0&quot, 2 * aLabel8; 2 * ay = (-b - Sqr(Δ)) /, x, b, Δ As Singlea = Val(Text1;系统提示&quot.Text)If a = 0 Thenit = MsgBox(&:Private Sub Command1_Click()Dim a.Caption = yEnd IfEnd Sub其中text1
text2 text3 用来输入a b clabel8 label9用来输出两根代码已经过完善了, &quot, vbCritical + vbOKO系统提示&)End Ifb = Val(Text2.Text)Δ = b ^ 2 - 4 * a * cIf Δ &lt, y,无解&quot, &quot.Caption = xLabel9代码帮你写好了;该方程没有实数根, vbInformation + vbOKOnly
首先判断A,B,C的范围是否正确然后用求根公式求出2实数解即可
vb程序设计的问题
其他类似问题
一元二次方程的相关知识
您可能关注的推广回答者:
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁想要设计一个简单vb程序,高手来帮帮忙_百度知道
想要设计一个简单vb程序,高手来帮帮忙
接着电脑判断正误,然后选手回答。最好也加几题选择题,算正确率。大概10题吧。可以的话最后要统计得分就是设计个简单的问答程序首先 电脑提一个问题
提问者采纳
我发了 代号007
提问者评价
喜剧之王 非你莫属厉害厉害
其他类似问题
vb程序的相关知识
其他2条回答
周长:&quot.setfocus mj=pi*r^2 end sub1,所有计算结果保留2位小数点,得到计算结果,dim mj as double Pi=3,单击“显示密码”后。要求定义所有变量,以“#”显示、1个文本框1、2个命令按钮组成.141.界面有2个LABEL,清空所有文本框和LABEL,在下方的LABEL内显示真实的密码,单击窗体后.141 text1,等待重新输入拜托各位了 给高分啊参考答案:private sub form_click() Dim r as integer,在文本框内由键盘输的密码.在文本框中输入半径数据。圆周率PI定义为数值常量3;单击“清空密码”. Private Sub Form_Click() Print &quot。 2。运行时文本框自动获得焦点
题目不清,重新写一下?
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 国考行测分值 的文章

 

随机推荐