VB程序员博客

各位，我做了个小浏览器。现在让它的右上角加上一个图片，怎样实现当正在打开网站时，它就动起来，网站打开完毕就静止不动？
就像IE右上角的那个图片一样，各位高手请赐教，小菜谢过了~~放上一个Flash控件,加载一个小动画.flash
gif
或者放一个imagelist，存入单帧的图像，定时轮流显示。具体怎么搞，还是不懂啊~~能否给个简单的具体实例~~谢了！^_^|-/

如题想用timer来显示动画？哈哈这个问题 别说20分 2000RMB也没人能领取.倒是有个变通的方法 shell一个exe将.gif转为.avi 再去读.avi有几祯研究一下GIF文件的格式就知道了！

嗯。现在都讲快餐。<
<
俺有现成的用来显示GIF动画的C++代码，可惜有点长。<
先谢过 sdfkfkd，我下代码回去看看先

2个同名的动态库，比如sa.dll，每个动态库里都同名函数Myname，但其实现功能不一样。1个放在系统文件夹下，1个放在当前路径下。现在要调用这个动态库的Myname函数，问当前软件会首先调用哪个动态库的函数？

如果该库为msvbvm60.dll(VB库），但许多用户的系统此库被修改过，经常出现VB写的程序不能正确打开的错误（报告内存读错误，让用户换了msvbvm60.dll库后就可以正确打开程序了），是否把该库放在程序目录下也能替代系统目录下的该库？谢谢。这个问题不简单。很混乱顶下，看是否有高手来回答。1.使用同名函数Myname本身就是个不该有的习惯

2.调用不同的库, 在你通用区，应该就会宣告使用那些不同名的引用库

不同名的引用库.?? 就是调用那个库 一个萝卜一个坑 还会挖错吗?可以用FILEmon 监控你的程序先找那个库文件不是有别名吗？回CBM666,请看好问题再回答。同名库和函数出现概率很小，但毕竟存在。我的主要问题是用户系统下msvbvm60.dll被修改了，我的软件没法正常执行。能否再打包一个msvbvm60.dll放在程序目录下，这样我的程序是否优先调用程序目录下的msvbvm60.dll。谢谢。没人回答就结帖了。

            数据库动态更新问题，老是解决不了，哪位高手帮帮忙吧！！我的Email     rr770@sina.com,我可以给源程序发给你！！帮我解决一下！！谢谢了！！（纯粹的菜鸟级）说说问题和现象,发代码就解决问题了？？具体问题把问题贴出来啊

这道题,怎么做,想了好久,也没思路

如题: 在FORM2上通过一个按钮可动态建立TEXTBOX(多个)

当鼠标单击任意一个TEXTBOX时,  就可通过其它几个按钮就可改变位置和高度和宽度(随时)
http://topic.csdn.net/t/20051015/10/4327982.html

这道题,怎么做,想了好久,也没思路

如题: 在FORM2上通过一个按钮可动态建立TEXTBOX(多个)

当鼠标单击任意一个TEXTBOX时,  就可通过其它几个按钮就可改变位置和高度和宽度(随时)
http://topic.csdn.net/t/20051015/10/4327982.html

有一个VC动态库 导出两函数（C中头文件中的声明）
DWORD WINAPI ETConnectServer(char*hostip);
VOID  WINAPI ETDisConnectServer();
以下是C中的调用：
int ret;
ret = ETConnectServer("192.168.33.44");

请问路过大侠，小弟如何在VB中声明并调用以上的函数，谢谢 ！跟普通的dll引用一样，先声明再使用。可见API引用实例！前辈 您说的我也知道 您能给我写出来么 我这调试不成功诶。比如函数的参数类型，我应该声明称什么样子呢？等等，谢谢！！

非常感谢，成功了！！<

Private WithEvents pic1 As picturebox
Private Sub Command1_Click()
Set pic1 = Controls.Add("vb.picturebox", "picture1")
pic1.Visible = True
pic1.Move 2000,200,200,200

End Sub
这是个点击按钮后动态生成一个picture1控件的简单程序。
但是我要求点击一次就生成一个picture控件，而且可以修改picture控件的属性，和响应它的事件.由于生成picture控件较多，希望用循环编写，但是VB好像不支持数组对象名，
难道要一个一个复制粘贴 ，pic1一直从贴到pic100不成。（而且完成之后要一个个可以拖动，所以不能用load方法 生成控件数组）

picClass：
Public WithEvents pic1 As PictureBox

Form1:
Dim picClass()  As New picClass

Private Sub Command1_Click()
Dim i As Integer
i = 0
For i = 0 To 4
    Set picClass(i).pic1 = Controls.Add("vb.picturebox", "picture" & i)
    picClass(i).pic1.Visible = True
    picClass(i).pic1.Move 2000 + i * 300, 200, 200, 200

Next
End Sub

Private Sub Form_Load()
    ReDim picClass(5) As New picClass
End Sub

我按你说的把
Public WithEvents pic1 As PictureBox
写入了类模块中从class1中，
将Dim picClass()  As New picClass

Private Sub Command1_Click()
Dim i As Integeri = 0
For i = 0 To 4
    Set picClass(i).pic1 = Controls.Add("vb.picturebox", "picture" & i)
    picClass(i).pic1.Visible = True
    picClass(i).pic1.Move 2000 + i * 300, 200, 200, 200
Next
End Sub
Private Sub Form_Load()
    ReDim picClass(5) As New picClass
End Sub

写入了form1中
但是运行后出现编译错误：用户类型未定义
光标在picClass()  As New picClass上

清楚了原来是没有改类模块的名字，呵呵谢谢桃子老兄拉

按照您的方法完全可以应用
但是我要对每个PICTURE窗口执行MOUSE事件编写语句时
Private Sub picclass(1).pic1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
显示编译错误，缺少标示符。我的基础不是很好，加入要实现MOUSE事件我该怎么编写语句呢！麻烦了！

看私信别忘记给分呵呵

Private Sub pic1_MouseDown(index as integer,Button As Integer, Shift As Integer, X As Single, Y As Single)

试试看

下面的是dll中函数，在用vb调用它是在参数的类型上还有什么要变化的吗？我按照函数要求的类型调用后老运行到该函数时出现错误，是不c语言中long和double要在vb中定义位其他格式啊？请高手指点指点！！！我的vb程序上实在是找不出什么错误，高手帮忙谢谢！！
bool WtSys_GetData(int VehicleID ，int TransNum ，long GrossWeight，int AxisCount， double Speed，double Acceleration， int Direction)
参数： int VehicleID （缓存的车辆序号（1、2、…））；
返回值：
int TransNum （流水号）；
long GrossWeight （总重）；
int AxisCount （轴组数）；
double Speed （速度）；
double Acceleration （加速度）；
int Direction （行驶方向 0—正常行驶 1—倒车）；

true 取数据成功；
false 取数据失败。

vb调用程序如下：
Private Declare Function WtSys_GetData Lib "C:WtSys_Dll.dll" _
(ByVal VehicleID As Integer, ByVal TransNum As Integer, _
ByVal GrossWeight As Long, ByVal AxisCount As Integer, _
ByVal Speed As Double, ByVal Acceleration As Double, _
ByVal Direction As Integer) As Boolean

WtSys_GetData VehicleID, TransNum, GrossWeight, AxisCount, Speed, Acceleration, Direction
Text1.Text = Text1.Text & "流水号:" & TransNum & vbCrLf
Text1.Text = Text1.Text & 总重:" & GrossWeight & vbCrLf
Text1.Text = Text1.Text & "轴组数:" & AxisCount & vbCrLf
Text1.Text = Text1.Text & "速度:" & Speed & vbCrLf
Text1.Text = Text1.Text & 加速度:" & Acceleration & vbCrLf
Text1.Text = Text1.Text & "方向:" & Direction & vbCrLf

太感谢了，问题解决了，真是高手啊！！再次感谢！
您能说一下什么时候用byval和byref吗？通过什么来判断用哪一个？

输入参数一般是通过传值，所以用 Byval；输出参数必须传址（指针），所以用 Byref（但字符串例外，因为 VB 的字符串传的已经是指针，用 ByVal）。

我上面代码中仅仅是猜测。在 C 代码中应该对指针加 * 号的，一看便知。

好！谢谢你！明白了，呵呵

在VB内置控件Image
动态填加Image控件如下
  Dim ImageCtl As Image
    Set ImageCtl = Me.Controls.Add("VB.Image", "Imagine" & Index_Imagine)
问:如何改VB.Image,就能适应ShockwaveFlash控件.
谢谢.