VB
dongfs-821
如有侵权 诚挚歉意 告知删除
展开
-
WORD 转PDF
VBConst wdExportFormatPDF = 17 GetObject("C:\1234.docx").ExportAsFixedFormat "C:\1234.pdf", wdExportFormatPDF同时系统需要安装转换插件:Word_2007_SaveAsPDFandXPS_12.0_XiaZaiBa.exe下载地址:点击打开链接 http://xiazai原创 2016-05-16 18:08:35 · 908 阅读 · 1 评论 -
VB 制作仪表盘
Private Sub Timer1_Timer() Const pi = 3.14 Const r = 1400 '表盘半径r Dim i As Long Dim pich As Long '高 Dim picw As Long '宽 Dim a As Single '刻度变量a Dim b As Single '指针变量b Pic原创 2016-08-04 16:11:47 · 2654 阅读 · 0 评论 -
VB多用户Winsock控件通讯实例
有一位CSDN的朋友不明白如何利用Winsock控件进行多用户之间的网络通讯,于是俺写了一个,希望对有此方面需要的朋友有所帮助! 本代码可以同时支持多个客户端的连接、识别和通讯,主要思路是在连接成功后,由客户主动发送一个用户名,服务器端以此用户名对客户进行区分,为防止同名客户,服务器端在用户名后加了一个后缀。由于写得匆忙,难免有失误,恳请指正! 服务器代码如下:转载 2016-12-28 14:13:47 · 5604 阅读 · 1 评论 -
VB 判断进程是否存在
Private Sub Command1_Click()If CheckExeIsRun("T5CAPP.exe") Then MsgBox "存在"Else MsgBox "不存在"End IfEnd Sub'检查进程是否运行,exeName 参数是要检查的进程 exe 名字,比如 VB6.EXEPrivate Function CheckExeIsRun(exeNa转载 2016-12-29 14:53:28 · 6487 阅读 · 3 评论