VB程序员博客

类似这种界面，在顶端选项选择以后，下面的内容就变了，vb有这种控件吗，还是得自己写5.1好像人气不旺啊。。。

谢谢，我也知道vb自己能改动的地方比较少，我去试试没找到能详细描述下么。。。。查msdn tabtrip是一个asp。net的控件VB有控件tab，可以试试看哦现在我还不知道怎么调用它，工程 -》部件 在哪里选择啊还没用过，关注,,,(1) HTML对话框，用css实现。
(2) 自己画好，贴图，摆放4个picturebox就可以了。win32标准的tabcontrol界面可能会让lz失望的。大家好啊，昨天那个如何加载控件我还没搞定。。。
在哪里有工程选项啊谁能解答下啊。。。编译器不熟练<
搞定了是。。。
其实是添加项->com组建->MICROSOFT WINDOWS COMMON CONTROLS 6.0库
谢谢前面的老师们

类似这种界面，在顶端选项选择以后，下面的内容就变了，vb有这种控件吗，还是得自己写5.1好像人气不旺啊。。。

谢谢，我也知道vb自己能改动的地方比较少，我去试试没找到能详细描述下么。。。。查msdn tabtrip是一个asp。net的控件VB有控件tab，可以试试看哦现在我还不知道怎么调用它，工程 -》部件 在哪里选择啊还没用过，关注,,,(1) HTML对话框，用css实现。
(2) 自己画好，贴图，摆放4个picturebox就可以了。win32标准的tabcontrol界面可能会让lz失望的。大家好啊，昨天那个如何加载控件我还没搞定。。。
在哪里有工程选项啊谁能解答下啊。。。编译器不熟练<
搞定了是。。。
其实是添加项->com组建->MICROSOFT WINDOWS COMMON CONTROLS 6.0库
谢谢前面的老师们

类似这种界面，在顶端选项选择以后，下面的内容就变了，vb有这种控件吗，还是得自己写5.1好像人气不旺啊。。。

谢谢，我也知道vb自己能改动的地方比较少，我去试试没找到能详细描述下么。。。。查msdn tabtrip是一个asp。net的控件VB有控件tab，可以试试看哦现在我还不知道怎么调用它，工程 -》部件 在哪里选择啊还没用过，关注,,,(1) HTML对话框，用css实现。
(2) 自己画好，贴图，摆放4个picturebox就可以了。win32标准的tabcontrol界面可能会让lz失望的。大家好啊，昨天那个如何加载控件我还没搞定。。。
在哪里有工程选项啊谁能解答下啊。。。编译器不熟练<
搞定了是。。。
其实是添加项->com组建->MICROSOFT WINDOWS COMMON CONTROLS 6.0库
谢谢前面的老师们

类似这种界面，在顶端选项选择以后，下面的内容就变了，vb有这种控件吗，还是得自己写5.1好像人气不旺啊。。。

谢谢，我也知道vb自己能改动的地方比较少，我去试试没找到能详细描述下么。。。。查msdn tabtrip是一个asp。net的控件VB有控件tab，可以试试看哦现在我还不知道怎么调用它，工程 -》部件 在哪里选择啊还没用过，关注,,,(1) HTML对话框，用css实现。
(2) 自己画好，贴图，摆放4个picturebox就可以了。win32标准的tabcontrol界面可能会让lz失望的。大家好啊，昨天那个如何加载控件我还没搞定。。。
在哪里有工程选项啊谁能解答下啊。。。编译器不熟练<
搞定了是。。。
其实是添加项->com组建->MICROSOFT WINDOWS COMMON CONTROLS 6.0库
谢谢前面的老师们

rt程序跟着快捷方式图标跑，这个比较麻烦。
首先，图标在哪都不确定。先在桌面上找到快捷方式的坐标，
计算该快捷方式下面的高度够不够显示整个窗口：
  够，在该位置显示窗口；
不够，在屏幕中心显示窗口。不过费上面那事儿，还不如显示窗口时，如能恢复到上次关闭前保存的位置就恢复该位置，不能恢复的话就在屏幕中心显示。也就是说，“恢复以前位置”比“显示在指定桌面快捷方式下面的位置”更好、更实用。<

<

请教各位高手，如何使用图片按钮使程序更美观，当鼠标聚焦图片按钮时显示浮起是彩色状态，失去焦点时显示正常灰色状态，请给点思路？最好能够详细点搜索 网上有好的图片按钮控件能否不用第三方控件实现，http://hi.csdn.net/attachment/200912/15/3184710_126085443629Zu.jpg.thumb.jpg你那个本来就是用第三方控件实现的。

不用第三方控件，那你在 Form_MouseMove() 事件中自己画吧。
用Form_MouseMove()来表示图片失去鼠标，用picture_MouseMove()来表示图片得到鼠标，very easy!

参考此帖：http://topic.csdn.net/u/20091209/22/7e601de4-c531-46a7-94db-56e251f918ba.html?seed=2085671228&r=61925683#r_61925683'1  添加picturebox控件 picture1，添加label空间 lblCommn，叠放在一起，
'2  做两个图片名字 S3.jpg和S3V.jpg
'3  代码
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    picture1.Picture = LoadPicture(App.Path & "S3.jpg")
    picture1.Left = lblCommn.Left
    picture1.Top = lblCommn.Top
End Sub

Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    picture1.Picture = LoadPicture(App.Path & "S3V.jpg")
    picture1.Left = lblCommn.Left - 30
    picture1.Top = lblCommn.Top - 30
End Sub

vb界面风格是根据系统主题风格而改变的，我想把vb某工程的所有窗体界面都应用一种系统主题风格不变，就是在以后不管在哪台机器上安装，界面风格都是那个，不会随系统主题的改变而变化。请问能实现吗？确切一点说：就是想把界面只作成某一系统主题的风格，而且不会再改变的。

用vb开发软件时，改变系统的主题，所有窗体就界面也跟着改变，发布以后，还会跟着变吗？窗体的BorderStyle=0，标题栏、控制图标和按钮自己设计。http://topic.csdn.net/u/20090303/02/fb11597e-66af-4f65-adb1-91014add689a.html
界面这块，说来话长啊！~~~[size=12px]vb界面风格是根据系统主题风格而改变的，我想把vb某工程的所有窗体界面都应用一种系统主题风格不变，就是在以后不管在哪台机器上安装，界面风格都是那个，不会随系统主题的改变而变化。请问能实现吗？确切一点说：就是想把界面只作成某一系统主题的风格，而且不会再改变的。

用vb开发软件时，改变系统的主题，所有窗体就界面也跟着改变，发布以后，还会跟着变吗？ [/size]

直接点说：我很看好xp系统的 年韵2006 这个主题，很想将其应用到我开发的程序上，并且不会再随着系统主题的变化而变化。就像瑞星那样，不管系统主题咋变，它的界面都不不变。

望诸位行家指点迷津！
用Skin++换肤
http://www.uipower.com/自己做个这样的界面,不使用系统外观样式.老马您好：我在您博客下了Xtreme Suite Pro ActiveX 安装完用了，的确挺好的。但仍有问题啊：

用了该控件后，菜单却不见了。请问是什么问题啊？另外，怎么将其打包到安装程序发布？请指教！<
用了该控件后，菜单却不见了。请问是什么问题啊？另外，怎么将其打包到安装程序发布？请指教！

连马兄都解决不了这个问题，看来没戏了。想知道像8楼那样回帖怎么弄，人多了说话有点乱，不知道和谁说呢。毕竟是新注册的，对论坛的功能一知半解。

打包的问题：
工程文件的目录为 E:废品\废品软件设计.vbp  工程的所有窗体、模块等都在 E:废品目录下
    数据库文件目录为 E:废品\DataBasefeipin.mdb 
    图片文件目录为 E:废品\Images
    SkinFramework的样式文件目录为 E:废品\Skill
打包时应该怎么弄啊？请指教啊，最后详细点。这些打不进去，安装完使用时会找不到文件的。
我那天试着打包，结果就没把DataBase Images Skill打进去，便提示找不到文件，故问问您。

另外能给我介绍几个好用的打包软件吗？vb自带的不太好。
    马兄：还得请教您一个问题，关于Adodc控件的RecordSet记录删除问题，删除一条记录后指针的位置不正确

删除后指针并没有指到预期的位置，却总是移到第一条或第二条。

    n = Adodc2.Recordset.AbsolutePosition '指针当前的位置
    st = MsgBox("确认删除该记录吗？", vbYesNo + vbInformation, "温馨提示")
    If st = vbYes Then
      If Ebo = True Then'若是最后一条记录，删除后将指针移到第一条记录  删除后指针位置正确
        Adodc2.Recordset.Delete
        DoEvents
        Call Sleep(600)
        MsgBox "删除成功！", vbOKOnly + vbInformation, "温馨提示"
        Adodc2.RecordSource = strSQL2
        Adodc2.Refresh
        Call BofIFSet  '判断是否是第一条记录，若是在Bbo = True
        Call EofIFSet  '判断是否是最后一条记录,若是则Ebo = True  BofIFset EofIFSet自有用处
        Call Txt1Set
      Else '删除后指针的位置不正确，总指向第一条或第二条记录，不知道为什么？
        Adodc2.Recordset.Delete
        DoEvents    '因为删除后DataGrid还显示该记录，故用了延时，之后再刷新Adodc2
        Call Sleep(600)
        MsgBox "删除成功！", vbOKOnly + vbInformation, "温馨提示"
        Adodc2.RecordSource = strSQL2
        Adodc2.Refresh
        For i = 1 To n - 1        '将指针移动到当前位置即删前的下一条
          Adodc2.Recordset.MoveNext
        Next i
        Call BofIFSet
        Call EofIFSet
        Call Txt1Set
      End If
    Else
      Txt1(0).SetFocus
    End If

马兄,我将问题穿插到代码后面描述了，这样挺方便的。不知道您明白我说的问题了吗？

    就是：执行Adodc2.RecordSet.Delete后指针不知去向，所以删之前记下了指针的当前位置，删之后再

    将指针移回去。但是用For i = 1 To n - 1        '将指针移动到当前位置即删前的下一条
                          Adodc2.Recordset.MoveNext
                    Next i  移动完，指针位置并没有正确，而是指向了第一条记录，或是第二条记录
请问为什么会这样啊？您是高手，受点累给小弟看看啊！

问题2：您用过vb自带的DataReptor（报表设计器）吗？
      由于表的字段过多，有十多个吧。横着设计报表时，报表页面的宽带部够用啊，能不能修改报表页面的

      宽带和高度将报表的页面横过来啊，现在字段过多，设计报表都进行不下去。帮帮忙吧！
   
      还有：报表通过Show方法预览时，页面总是太靠左了，想给它弄到中间去，怎么弄啊？数据库我就是外行了啊,哈哈哈哈哈哈…….API方面的应该还勉强可以打肿脸充充胖子这三个问题应该有能解决的吧？

vb界面风格是根据系统主题风格而改变的，我想把vb某工程的所有窗体界面都应用一种系统主题风格不变，就是在以后不管在哪台机器上安装，界面风格都是那个，不会随系统主题的改变而变化。请问能实现吗？确切一点说：就是想把界面只作成某一系统主题的风格，而且不会再改变的。

用vb开发软件时，改变系统的主题，所有窗体就界面也跟着改变，发布以后，还会跟着变吗？窗体的BorderStyle=0，标题栏、控制图标和按钮自己设计。http://topic.csdn.net/u/20090303/02/fb11597e-66af-4f65-adb1-91014add689a.html
界面这块，说来话长啊！~~~[size=12px]vb界面风格是根据系统主题风格而改变的，我想把vb某工程的所有窗体界面都应用一种系统主题风格不变，就是在以后不管在哪台机器上安装，界面风格都是那个，不会随系统主题的改变而变化。请问能实现吗？确切一点说：就是想把界面只作成某一系统主题的风格，而且不会再改变的。

用vb开发软件时，改变系统的主题，所有窗体就界面也跟着改变，发布以后，还会跟着变吗？ [/size]

直接点说：我很看好xp系统的 年韵2006 这个主题，很想将其应用到我开发的程序上，并且不会再随着系统主题的变化而变化。就像瑞星那样，不管系统主题咋变，它的界面都不不变。

望诸位行家指点迷津！
用Skin++换肤
http://www.uipower.com/自己做个这样的界面,不使用系统外观样式.老马您好：我在您博客下了Xtreme Suite Pro ActiveX 安装完用了，的确挺好的。但仍有问题啊：

用了该控件后，菜单却不见了。请问是什么问题啊？另外，怎么将其打包到安装程序发布？请指教！<
用了该控件后，菜单却不见了。请问是什么问题啊？另外，怎么将其打包到安装程序发布？请指教！

连马兄都解决不了这个问题，看来没戏了。想知道像8楼那样回帖怎么弄，人多了说话有点乱，不知道和谁说呢。毕竟是新注册的，对论坛的功能一知半解。

打包的问题：
工程文件的目录为 E:废品\废品软件设计.vbp  工程的所有窗体、模块等都在 E:废品目录下
    数据库文件目录为 E:废品\DataBasefeipin.mdb 
    图片文件目录为 E:废品\Images
    SkinFramework的样式文件目录为 E:废品\Skill
打包时应该怎么弄啊？请指教啊，最后详细点。这些打不进去，安装完使用时会找不到文件的。
我那天试着打包，结果就没把DataBase Images Skill打进去，便提示找不到文件，故问问您。

另外能给我介绍几个好用的打包软件吗？vb自带的不太好。
    马兄：还得请教您一个问题，关于Adodc控件的RecordSet记录删除问题，删除一条记录后指针的位置不正确

删除后指针并没有指到预期的位置，却总是移到第一条或第二条。

    n = Adodc2.Recordset.AbsolutePosition '指针当前的位置
    st = MsgBox("确认删除该记录吗？", vbYesNo + vbInformation, "温馨提示")
    If st = vbYes Then
      If Ebo = True Then'若是最后一条记录，删除后将指针移到第一条记录  删除后指针位置正确
        Adodc2.Recordset.Delete
        DoEvents
        Call Sleep(600)
        MsgBox "删除成功！", vbOKOnly + vbInformation, "温馨提示"
        Adodc2.RecordSource = strSQL2
        Adodc2.Refresh
        Call BofIFSet  '判断是否是第一条记录，若是在Bbo = True
        Call EofIFSet  '判断是否是最后一条记录,若是则Ebo = True  BofIFset EofIFSet自有用处
        Call Txt1Set
      Else '删除后指针的位置不正确，总指向第一条或第二条记录，不知道为什么？
        Adodc2.Recordset.Delete
        DoEvents    '因为删除后DataGrid还显示该记录，故用了延时，之后再刷新Adodc2
        Call Sleep(600)
        MsgBox "删除成功！", vbOKOnly + vbInformation, "温馨提示"
        Adodc2.RecordSource = strSQL2
        Adodc2.Refresh
        For i = 1 To n - 1        '将指针移动到当前位置即删前的下一条
          Adodc2.Recordset.MoveNext
        Next i
        Call BofIFSet
        Call EofIFSet
        Call Txt1Set
      End If
    Else
      Txt1(0).SetFocus
    End If

马兄,我将问题穿插到代码后面描述了，这样挺方便的。不知道您明白我说的问题了吗？

    就是：执行Adodc2.RecordSet.Delete后指针不知去向，所以删之前记下了指针的当前位置，删之后再

    将指针移回去。但是用For i = 1 To n - 1        '将指针移动到当前位置即删前的下一条
                          Adodc2.Recordset.MoveNext
                    Next i  移动完，指针位置并没有正确，而是指向了第一条记录，或是第二条记录
请问为什么会这样啊？您是高手，受点累给小弟看看啊！

问题2：您用过vb自带的DataReptor（报表设计器）吗？
      由于表的字段过多，有十多个吧。横着设计报表时，报表页面的宽带部够用啊，能不能修改报表页面的

      宽带和高度将报表的页面横过来啊，现在字段过多，设计报表都进行不下去。帮帮忙吧！
   
      还有：报表通过Show方法预览时，页面总是太靠左了，想给它弄到中间去，怎么弄啊？

请教：在窗体上布置好控件并在代码窗口中写完代码后，请问能编辑代码将窗体界面输出为图形（如格式为.jpg或.bmpg）保存吗???如若此法不行，那怎么才能将窗体界面输出为图形呢（窗体上原来设计有很多各种控件）？？？？万分感谢，望赐教！！！！！！

用CreateCompatibleDC、CreateCompatibleBitmap、SelectObject、PrintWindow等API。

按Alt+PrtSc键拷屏,贴到画图板手工保存一下吧

是活动窗口。就是说里面窗体界面上有滚动条，整幅图片一个窗体容不下。能将这么大的图片自动输出成图形么

这种想法叫窗口抓图。
窗口正常显示的情况下抓图并保存成BMP文件格式的过程很简单，步骤如下
1、取得窗口句柄
  (如果是自己的窗口就可以跳过这个过程)
2、通过窗口句柄取得窗口设备句柄
  (如果是自己的窗口就可以跳过这个过程，直接使用 me.hDC 属性就取得了窗口设备句柄)
3、通过GDI函数将目标窗口设备绘制到指定设备
  （可以将图片绘制到 PictureBox 中，这样简单点，不然就完全用GDI创建一个设备和位图，
    然后再绘制到这个设备，不过这种方式稍微麻烦点，但效率比较高。通常使用 API 的 BitBlt
  函数来进行抓图，比如：
  Bitblt Picture1.hDC,0,0,Me.width,Me.Height,me.hDC,0,0,,,vbSecCopy
  注意：PictureBox的AutoRedraw属性要是True，否则你绘图后用不了Image属性保存图片
4、保存图片
  (可以用VB自代的函数保存，如：SavePicture Picture1.Image,"C:1.BMP"
  注意：SavePicture函数不支持JPG格式，如果要保存JPG或GIF或TIF之类的格式，可以采用
  GDI+技术实现，不过东西就多一点，你可以在CSDN搜索看看，以前有很多人发过很多GDI+相关
  的帖子。)

要取得滚动信息，并进行循环滚动，每次滚动截一个小图，最后将所有小图拼成一个大图。
截图工具 snagit 就是这么做的。

要取得滚动信息，并进行循环滚动，每次滚动截一个小图，最后将所有小图拼成一个大图。
截图工具 snagit 就是这么做的。

我窗体上有两个picture控件，一个比较小，没有滚动条。另一个比较大，带有滚动条，可否实现将这一大一小的两控件里的内容完全输出到一副图片里。这个要求能实现吗，可否提供一些相关代码，万分感谢！！！！！不知道各位看懂我的意思没有。。。

帮你顶！

比较繁琐，不要让人误认为是抓“义工”哟，赵老师已经把思路告诉你了，还是结贴自己做吧……

VB6不支持32位真彩色,让制作出来的程序失色不少,但是还有一些背景透明的图标是可以在VB里使用的,不知道这种背景透明的图片是怎么制作出来的,我用过很多工具,ICOWorkShop,ArtIcons等,都做不出透明背景的,而且VB能使用的ICO来.
现在我想把手上的一大批32位透明的ICO图标转成VB可以使用的透明ICO,不知道要用什么工具,设置什么样的参数规格,才能做出VB能使用的透明ICO.

不知道微软以前那么多透明的图标怎么做出来的,都可以在VB里使用.

帮顶

帮顶

不懂，up

改成24位真彩的,效果非常不错