VB程序员博客

我有一个MDI窗体，窗体下面放了一个状态栏，状态栏有三个窗格，
最左边的窗格我想用来显示进度条，但进度条控件ProgressBar始终
无法放到最左边的窗格里面去，有哪位高手可以指点一下？谢了！试一试:
先放一个与MDI窗体一样大的picture控件,再放状态栏,再放进度条控件ProgressBar.还是用activebar2.0吧 汉化的还可以 做出来的窗体看着也比较专业代开各行业【増直/鐠通】漂据。
另批发/零售仿真度可达90%以上各品牌香烟，如中华、黄鹤楼1916、芙蓉王、南京95至尊、白沙(和天下)、苏烟、玉溪、利群、双喜、世纪经典等。
如有意，请联系Q：1145553117。  手机：13544123356、金先生
继续顶！

可以在Form_Resize()事件中控制控件位置

如题，MSHFlexGrid 控件 邦定了ADO控件，然后就无法修改列标题了，用右键属性的方法修改后不起作用，用运行时代码修改也不行，请问各位是什么原因，有什么办法！谢谢！试试aliasMSHFlexGrid可以脱离记录集的，所以你要先nothing掉ADO控件，再修改…基本没用过ADODC控件，绑定后试着加一行：
set adodc1.recordset.connection=nothing
然后再用相应属性修改…ADO控件里面的RecordSource改一下别名就可以了
Adodc1.RecordSource = "SELECT 编号 as 别名1 from code"
Adodc1.refresh

哈哈，感谢chinaboyzyq 要地就是这个

如题，MSHFlexGrid 控件 邦定了ADO控件，然后就无法修改列标题了，用右键属性的方法修改后不起作用，用运行时代码修改也不行，请问各位是什么原因，有什么办法！谢谢！试试aliasMSHFlexGrid可以脱离记录集的，所以你要先nothing掉ADO控件，再修改…基本没用过ADODC控件，绑定后试着加一行：
set adodc1.recordset.connection=nothing
然后再用相应属性修改…ADO控件里面的RecordSource改一下别名就可以了
Adodc1.RecordSource = "SELECT 编号 as 别名1 from code"
Adodc1.refresh

哈哈，感谢chinaboyzyq 要地就是这个

如题，MSHFlexGrid 控件 邦定了ADO控件，然后就无法修改列标题了，用右键属性的方法修改后不起作用，用运行时代码修改也不行，请问各位是什么原因，有什么办法！谢谢！试试aliasMSHFlexGrid可以脱离记录集的，所以你要先nothing掉ADO控件，再修改…基本没用过ADODC控件，绑定后试着加一行：
set adodc1.recordset.connection=nothing
然后再用相应属性修改…ADO控件里面的RecordSource改一下别名就可以了
Adodc1.RecordSource = "SELECT 编号 as 别名1 from code"
Adodc1.refresh

哈哈，感谢chinaboyzyq 要地就是这个

设置好的控件位置在不同分辨率的电脑上经常发生变化，怎样能才固定好各自的相对位置？
有没什么设置好办法

如需要阅读该回复，请登录或注册

控件.LEFT 和 控件.TOP分辨率改变的只是像素的大小,分辨率不同像素的大小有变,但是象"缇"之类的单位并不随分辨率改变,所以,左和上边界都用"缇"作单位量度,Scalemode=VbTwips就行.不要用像素作单位.我晕 VB本来就是用缇的  像素得转换成缇才有效按桌面比例
Screen.Width,Screen.Height没有更好的捷径，只能自已动手搞的我也想要这种啊~~~晕倒~~~~找了好几天了~~~一直没有找到这类的解决方法~~~最多只能是控件也随之改变~~但我不想改变控件大小啊….只要位置就可以了~~~哎

没什么好办法，判断屏幕分辩率，然后重新布局。<
WPF看来只有自己动手设置，没别的特别方法

大家好
我使用ADO纪录集为何无法填充DATACOMBO控件呢？已经用代码设置了ROWSOURCE和LISTFIELD属性的，却不行。用ADODC控件却可以。请大家帮忙指导一下，谢谢了

先谢谢CityBird了，我回去试试了。我试了N遍，就是没试不关闭纪录集的。关了还让人怎么显示啊.

请教各位高手:本人做了个极小的程序,是文件拷贝的,这个程序也是我在书上抄的.可以实现把文件从本地机的一个地方拷贝或移动到另一个地方的目地.但它不能看到拷贝或移动文件的进展情况,我想加上个进度条控件实现拷贝或移动的实时情况,但又不知道该如何做,怎么写?我先把这个拷贝程序写下来.请高手帮助.谢谢.
比方说有个按钮控件.事件过程如下:
private sub command1_click
dim sfile,dfile as string
sfile="d: ext.txt" '源文件名
dfile="f: ext.txt" '目标文件名
filecopy sfile,dfile  '文件拷贝
end sub
比方说要拷贝的文件很大的话.一,二百M这样.
请教高手:这就是文件拷贝的极小程序,我从书上抄的.我想在这个程序里加入拷贝的进度程序.但不知道怎么写.请高手指教.谢了.

有点难度哦<

请问如何将 DataGrid 控件的第一列锁定，使其不能更改，但其它的列可以更改。
谢谢！Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    If DataGrid1.Col = 1 Then
        DataGrid1.AllowUpdate = False
    Else
        DataGrid1.AllowUpdate = True
    End If
End Sub
UP

请问如何将 DataGrid 控件的第一列锁定，使其不能更改，但其它的列可以更改。
谢谢！Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    If DataGrid1.Col = 1 Then
        DataGrid1.AllowUpdate = False
    Else
        DataGrid1.AllowUpdate = True
    End If
End Sub
UP

请问如何将 DataGrid 控件的第一列锁定，使其不能更改，但其它的列可以更改。
谢谢！Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    If DataGrid1.Col = 1 Then
        DataGrid1.AllowUpdate = False
    Else
        DataGrid1.AllowUpdate = True
    End If
End Sub
UP