zzq89120-优快云博客

原创 VB 和timer控件功能相同的函数

利用API函数实现定时器功能模块中： Option Explicit Public lTimerId As Long Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long

2009-04-04 02:48:00 397

原创控件自适应窗体大小

一个老外写的控件自适应窗体大小变化的完美代码 ’类模块：clsAutoPositioner Option Explicit Dim m_oAssignments As New Collection Public Function AddAssignment(ctl As Object, _

2009-04-03 04:42:00 692

原创 WindowsMediaPlayer VB实例

form1的窗体代码在其上添加一个WMP控件Option Explicitwmp播放器缩放Private Sub Form_Resize() WindowsMediaPlayer1.Move 0, 0, Me.Width, Me.HeightEnd Sub下面是Form2的窗体代码form1作为播放窗体form2作为启动窗体。播放控制。在其上添加4个命令按钮comman

2009-03-31 15:27:00 1311 1

原创动态创建和删除VB控件

1.概述在使用Visual Basic 进行程序设计的过程中，如果能在运行时刻动态地创建和删除控件，可以极大地丰富界面的处理和变化。本人在设计网络监控系统时，需要在原理图与实物示意图间切换。切换的过程采用本文介绍控件的动态创建和删除来实现，有效地节省了系统资源，同时也有利于简化界面的维护。下面将就Visual Basic 6.0中的控件在运行时刻的创建和删除的两种方法——控件数组和控件集

2009-03-30 06:14:00 2002

VB6有一个新功能，可以动态添加控件，不用控件数组：　　object.Add (ProgID, name, container)　　参数说明　　Object 必需的。一个对象表达式，其值是“应用于”列表中的一个对象。　　ProgID 必需的。一个标识控件的字符串。大多数控件的 ProgID 都可通过查看对象浏览器来决定。控件的 ProgID 是由控件的库和类组成的。　　例如，CommandButt

2009-03-30 06:00:00 1997

原创 VB winsock建立多TCP连接示例

在FORM窗口里加入如下声明及自定义函数:Option Explicit定义常量Const BUSY As Boolean = FalseConst FREE As Boolean = True寻找空闲的sockPublic Function FindFreeSocket()Dim SockCount, i As IntegerSockCount = UBound(ConnectSta

2009-03-24 15:36:00 2145 1

原创 VB动态生成与删除控件

生成控件有两种方法：1.使用控件数组先声明控件数组,要有个index=0的控件然后load text(1)text(1).move 1000,1000text(1).visible=true删除:unload text(1)2.使用Controls集合的Add方法，例： Dim a As CommandButton Set a = Controls.Add("VB.Com

2009-03-05 02:21:00 1088

原创 VB中延时功能与Sleep函数

不知道大家在使用VB时有没有遇到过这样的现象：在运行程序时，按F8调试运行程序就正常执行，但是按F5或是编译成EXE文件执行时，却会出错或没有结果。本人今天就是遇到这样的奇怪问题，感觉这几天遇到的问题好多好奇怪，哎，还是自己动手，一个个解决吧。按照上面的这种情况，应该不是代码本身编写上有问题，可以这么推测，那问题可能是：很多情况下执行一个循环任务需要一定的时间，调试的时候会停顿，循环内的任务就

2009-01-07 23:50:00 3714

原创用API函数mciSendString在自己的窗体Form1中播放视频图像，如何在图像上按右健菜单

哎，SubClass是种处理机制，几句话真说不清，用下面代码试试，按需要改改。应该可以了。相关API声明，你自己加上。注意：看懂了再试，并要先存盘，这东西调试时会崩溃的。以下代码在窗体Form1中窗体中加个Timer取名为PMenu，Interval=20，Enabled = False Private Sub PMenu_

2008-12-11 02:18:00 682

原创把视频放picturebox 里播放

将视频放到一个指定句柄的窗口内播放:Put命令。缺省情况下，MCI函数会开启一个新窗口来播放视频，但这样有时不方便，因为若要实现一些功能，如在视频窗口内单击鼠标右键时弹出功能菜单，在MCI缺省提供的窗口内无法实现，而如果把视频放到窗体上或窗体内一个Picture上，问题就好解决了，Put指令的用法如下：第一步：打开一个设备时指定显示窗口句柄：open 设备 alias 别名

2008-12-11 00:04:00 998

原创 VB 截取picturebox里面全部

创建个picturebox 跟两个 commandbuttonPrivate Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As

2008-12-10 19:22:00 781

原创 VB micsendstring 的属性及用法

做个mp3播放器，用realplay和WMP做出来的程序内存占用太大。如果你仅仅是播放MP3，建议使用API函数mciSendString，我把该函数的详细资料罗列如下供你参考。Option ExplicitPrivate Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrComman

2008-12-10 18:04:00 1079

原创在PictureBox控件中显示GIF动画（图片）

在PictureBox控件中显示GIF动画（图片）,凡有句柄hwnd的窗体控件均可以在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件Picture1Option Explicit调用运动图像播放类型库Quartz.dll,在c:/windows/system32目录下Private pMC As FilgraphManager 定义pMC为Fi

2008-12-09 01:41:00 462

原创窗口不在任务栏中显示

如果仅仅要求不在任务栏显示非常简单，只要在窗体属性ShowInTaskbar设为false就可以了。如果要求在Ctrl+Alt+Del呼出的task对话框中也看不见，就需要把程序注册为系统服务。用以下API.声明：Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal

2008-12-05 05:39:00 359

原创如何隐藏窗口

我看到老手写的一个气球提示的但是不但有气球提示还会把窗口也显示出来我就想问下有没有办法只显示气球不显示窗口窗体： Option Explicit Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA"

2008-12-04 19:59:00 641

原创 API调整视频大小

比如播放c:/123.avi 在窗体中加两个按钮。单击Command1播放，单击Command2设置播放窗口位置（左上角x，左上角y，宽度，高度） Option Explicit Private Declare Function mciSendString Lib "winmm.dll" Alias

2008-12-02 03:01:00 284

原创如何截取屏幕画面

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Const theScreen = 1‘theScreen则Copy整个ScreenConst theForm = 0

2008-12-02 02:30:00 272

原创在VB中如何使用ping命令

BASModule模块把以下代码回到BASModule模块: OptionExplicitPrivateConstIP_SUCCESSAsLong=0PrivateConstIP_STATUS_BASEAsLong=11000PrivateConstIP_BUF_TOO_SMALLAsLong=(11000 1)PrivateConstIP_DEST_NET_UNREACHABLEAsLong

2008-12-02 02:27:00 441

原创 MediaPlayer11播放列表

Option Explicit Dim mp3List() As String 用此数组来实现播放列表 Private IndexOfList As Long

2008-11-28 00:04:00 241

原创 API之网络函数

1. API之网络函数 WNetAddConnection 创建同一个网络资源的永久性连接 WNetAddConnection2 创建同一个网络资源的连接 WNetAddConnection3 创建同一个网络资源的连接 WNetCancelConnection 结束一个网络连接 WNetCancelConnection2 结束一个网络连接 WNetCloseEnum 结束一次枚举操作 WNetCo

2008-11-26 01:15:00 210

原创 VB窗体置顶

Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal

2008-11-25 15:04:00 1039

原创 WindowsMediaPlayer 11 控件

属性/方法名：说明： [基本属性] URL:String; 指定媒体位置，本机或网络地址 uiMode:String; 播放器界面模式，可为Full, Mini, None, Invisible playState:integer; 播放状态，1=停止，2=暂停，3=播放，6=正在缓冲，9=正在连接，10=准备就绪 enableContextMenu:Boolean; 启用/禁用右键菜单 ful

2008-11-20 02:09:00 492

原创 MediaPlayer1控件

VB的MediaPlayer1控件URL:string 可以指定媒体位置 enableContextMenu:Boolean 显示/不显示播放位置的右键菜单 fullScreen:boolean 全屏显示 stretchToFit:boolean 非全屏状态时是否伸展到最佳大小 uMode:s

2008-11-20 01:47:00 599

原创 MediaPlayer. 视频

播放: MediaPlayer.Play() 暂停: MediaPlayer.Pause() 定位: MediaPlayer.SetCurrentEntry(lWhichEntry) MediaPlayer.Next() MediaPlayer.Previous() 循环: MediaPlayer.PlayCount = 0 0:the clip plays repeate

2008-11-20 01:46:00 308

原创 Grid 控件

//最后一列数据让表格填充满 grid1.ExtendLastCol= true; //显示固定行数 grid1.DisplayRowNumber =true; //设置列数 grid1.Cols =7; //设置行数 grid1.Rows=100; //返回或设置控件在当前活动单元格是否显示一个虚框。 grid1.DisplayFocusRect = fals

2008-11-19 02:38:00 337

原创 VSFlexGrid控件

1,如果想把某一列设置成下拉匡中选择，只能写成 grid.colcombolist(1) = "a|b|c" 吗？能不能把下拉框中的数据和 recordset 或数组绑定。答案:grid.colcombolist(1)＝grid.buildcombolist(rs!abc)2,怎样限定第三列可编辑,其他列不可编辑?答案:Private Sub fg_BeforeEdit(ByVal Row As

2008-11-19 02:33:00 747

原创 vb 错误捕捉代码

On Error GoTo Err0: 首先打开错误捕捉功能 ..... MSComm1.PortOpen = True 打开串口，一旦出错，就跳转Err0 ..... Err0: Select Case Err.Number Case 8005 串口已被占用的错误代码

2008-09-28 20:29:00 557

原创 VB串口通讯与开关量的检测与输出

摘要：本文介绍了以VB和计算机串口在一个小型配料工程中的应用为例。详尽的阐述了串口在配料系统中的应用方法。特别在串口通讯中的开关量的检测和输出要点。极大限度的降低了系统硬件所占工程中的成本。关键词：VB 串口通讯开关量配料控制管理低成本引言：在一般的配料工程中，要一台上位机对配料过程中所产生的一系列数据进行保存和统计，往往需要检测来自现场的一些开关信号。在应用工程中，在一般的上位机与

2008-09-28 20:03:00 2476 1