窗体上有5个按钮,分别是“播放”,“暂停”,“停止”,“上一首”,“下一首”;
当前目录下有很多mp3文件,当程序运行的时候,自动播放第一首歌,按“暂停”时,暂停播放
按“播放”时,继续已经暂停的播放,按“停止”则停止播放歌曲,按“下一首”播放下一首歌,“上一
首”则播放上一首歌,如果 ......
恳求VB一对多的TCP通信程序代码
S:vb.net 多线程
C:vb/VB
Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load sckServer(intMax)
sckSe ......
RetVal = Shell(App.Path + "\Project1.exe ")
msgbox "111"
project1.exe 是其他的一个程序
程序在运行时, 如何让 project1.exe 关之后再运行 msgbox
shell 本身只负责开始支持这个程序。没有办法在SHELL中实现你要求的这种功能。
已找到解决办法:
Priv ......
还有一个问题
在程序执行一段过程后,将一些内容 要存到INI文件当中
INI文件的格式是:
【数据库登陆】
userName = admin
passWord = admin
【系统登陆】
APuserName = 5005
APpassWord = 5005
.
.
.
程序要求只需要把【系统登陆】下的APuserName 和APpassWord 的值改为“5566”和“55 ......
比如
<frameset cols="30,167,*" border=0 frameborder=0 name= fs2 >
<frame name="leftbrder" disabled readonly src="/html/leftBorder.html" scrolling="no" border="0" frameborder="0" marginwidth="0" noresize>
......
Vb中一个控件在编辑的时候可以随便移动位置,改变大小
我想在我的程序运行的时候 也让一个控件通过鼠标拖动,改变大小,位置等功能怎么实现?
VB code:
Dim a!, x1!, y1!
Private Sub Frame1_MouseDown(frame As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
a = 1
End ......