VB程序员博客

假如我想在程序中作一个设置对话框，那么这里设置的数值怎么才能保存起来供下次使用呢？

是否保存到注册表里？这个ms有难度，但我想可以的

还是保存到程序哪个文件里？

能具体讲讲哪个函数吗？
举个例子更好

有个论坛，后台有个传图片组件的功能，说服务器不支持？咋回事！后台有个设置的选项：ADODB.Stream和一个soft…什么的
SA-FileUp 文件上传：㗠
JPEG 组件支持：㗠
这些问题是服务器的原因吗！QQ965263641是的。

如果你是服务器管理员，可以下载和安装这个组件。
否则请联系管理员。

vb实现保存到excel中
如何让生成的excel自动筛选（就是表头都有下拉列表）
能用代码实现吗？？？
。。。。excel中录制宏，拿到vb修改一下

楼上的怎么做成模板？<
我的是个Acess程序
那保存excel的时候还得有什么特殊操作吗
我直接用
DoCmd.TransferSpreadsheet acExport, 5, WRK_EXPORT, export_name, False, "人员名单"
生成的

PS：要是把代码加进去的话，怎么老提示with。。。的错误，应该怎么加

解决了
Set Excel_App = CreateObject("Excel.Application")
    Set Excel_Book = Excel_App.Workbooks.Open(export_name)
    Set Excel_Sheet = Excel_App.Worksheets(1)
    Excel_Sheet.Rows(1).AutoFilter

谢谢楼上两位
揭帖

使用DataReport做出来的报表，通过show方法显示后，白的页面总是太靠左了。我想把它弄到中间去，就是居中显示。怎么弄啊？哪位知道请赐教一下！高手给解决一下啊，please！！！怎么就没人知道吗？坚信高手肯定是存在的，等待中。。。。。。

报表的页面宽度和高度能设置吗？up快来人救助啊：要出人命了……

使用DataReport做出来的报表，通过show方法显示后，白的页面总是太靠左了。我想把它弄到中间去，就是居中显示。怎么弄啊？哪位知道请赐教一下！这个不用高手，有相关定位属性margins，自己在属性窗口好好找找…

由于表的字段过多，有十多个吧。横着设计报表时，报表页面的宽带部够用啊，能不能修改报表页面的

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

      宽带和高度将报表的页面横过来啊，现在字段过多，设计报表都进行不下去。帮帮忙吧！
   
      还有：报表通过Show方法预览时，页面总是太靠左了，想给它弄到中间去，怎么弄啊？怎么就没人搭理我呢？
推荐个强大专业并且简单好用的控件Grid5.0++reporter，虽然三位都没能帮上我，但都辛苦一回，散分。等下去也没结果了。

原帖见http://topic.csdn.net/u/20091111/21/217768bc-0a70-48e0-96cd-d6834ce7862f.html
经过大家和老马的指点，偶终于找到解决之道了！在此衷心感谢老马和各位的帮助，哈哈，喜悦之情难以言表啊！
解决方法见我的博客
http://www.86lg.com/view.asp?id=80卖卖关子，欢迎大家来我小舍逛逛。板凳端回家……………………解决了?

问题是…..还是怪啊.

安全软件不可能会对这些键进行访问拦截的……解决就好解决就好解决就好恭喜楼主…………….
<

原帖见http://topic.csdn.net/u/20091111/21/217768bc-0a70-48e0-96cd-d6834ce7862f.html
经过大家和老马的指点，偶终于找到解决之道了！在此衷心感谢老马和各位的帮助，哈哈，喜悦之情难以言表啊！
解决方法见我的博客
http://www.86lg.com/view.asp?id=80卖卖关子，欢迎大家来我小舍逛逛。板凳端回家……………………解决了?

问题是…..还是怪啊.

安全软件不可能会对这些键进行访问拦截的……解决就好解决就好解决就好恭喜楼主…………….
<

原帖见http://topic.csdn.net/u/20091111/21/217768bc-0a70-48e0-96cd-d6834ce7862f.html
经过大家和老马的指点，偶终于找到解决之道了！在此衷心感谢老马和各位的帮助，哈哈，喜悦之情难以言表啊！
解决方法见我的博客
http://www.86lg.com/view.asp?id=80卖卖关子，欢迎大家来我小舍逛逛。板凳端回家……………………解决了?

问题是…..还是怪啊.

安全软件不可能会对这些键进行访问拦截的……解决就好解决就好解决就好恭喜楼主…………….
<

我的VB自安装好以来，就不能保存开发环境的设置，每次开打VB都需要重新设置一下，超级麻烦！不知道谁遇到过这样的情况，又是怎么解决的？期待解决中…
重装VB，导入老马网站上的VBIDE初始化的注册表值，都试过了，米用的…
强烈期待解决…不是被阉割了的VB安装包吧？如果VB安装包在其它地方正常的话，就要看操作系统是否有问题了？安装完整的操作系统和VB。沉得相当地快啊！<
果然是被处理过的，搜索个原版吧。我用的就是这个啊，
感觉很好啊。。用迅雷搜个，多的是 找下载量大的评价好的是啊,换版本吧~~~还是安装个原版的好装英文版的吧,用习惯就好了找个完整安装包！重新安装！<
顶启动VB布置好版面后，正常关闭VB，然后再启动VB看看VB是否是你最后的设置版面。
这个……….我一般不使用处理过的………都是下载原版,再自己打SP6….好的！我试试，安装英文原版！
但愿老天保佑啊！<
帖子回复不多啊，看样子大家都可以用咯？<
没遇到过。

即使‘阉割’，也不用把这个割掉吧，在注册表中保存点信息，这部分的代码也没多少。

你要从你的系统或相关软件方面找原因。
下了好些版本都是一样！谁有没有“非阉割版”的啊？只能说明是楼主电脑的问题（操作系统有问题或如 18F 所说）。算了，认命了RPWT,haha<
我晕,还不行啊?

你系统咋回事?簡單些，重裝一下VB吧。<

我在FORM类中重写WindowProc

在WindowProc里用GetWindowDC截取了WM_NCPAINT信息

并且重绘了标题栏

但是问题来了 发现我画的标题栏没有原来的标题栏那么高

所以客户区和非客户区之间有一小段透明区域

现在我想修改标题栏的高度使其适应我画上去的标题栏！

请高手指教！

用 GetSystemMetrics(SM_CYCAPTION) 取得标题栏高度，按这个高度来进行重绘。

能讲得具体一点么？

支持~

    都是高手些，进来学习学习

你在 WM_NCPAINT 中如何重绘的标题栏？
总要确定一个高度吧。改用 GetSystemMetrics(SM_CYCAPTION)，是像素单位。

利用 WindowRect 和 ClientRect 也能得到标题栏或者说非客户端的尺寸
不过, 如果窗口有菜单, 菜单也算是标题栏区域的

我的是改变标题栏的大小

而不是我去适应它的大小

DrawCaption 这个API –C#–或者VB2005 里怎么用？

给点示例也行行！

那么你要响应 WM_NCCALCSIZE，按照你的标题栏大小计算出客户区范围。

OKⷂ𗂷能说的详细点么？

我试下ⷂ𗂷

具体说明看MSDN帮助。
原则在 WM_NCCALCSIZE 中，传入 Window 的 RECT，你根据边界、标题栏等信息计算出客户区的 RECT。
这样系统才能将客户区的图像绘制在合适的位置，而不是比你期望的位置要底。

还是不能明白ⷂ𗂷

计算出来ⷂ𗥅𗤽𓧚䦓�𜥹𒤺𛤻ह肷ⷼ/td>

其实原因在于你只计算了标题栏本身的高度，而没有计算边框的高度，所以才出现透明区域，需要加上边框高度，获得边框高度可以用GetSystemMetrics(SM_CYBORDER)。

晕啊ⷂ𗥏糖𝤽ऻ쨯祿𚦈𑦄呂𝂷了ⷂ𗠼br />
我是想要改变ⷂ𗂷标题栏的大小ⷂ𗠼br />
或者是客户区向上挪 或者想下挪ⷂ𗂷

如果要改变标题栏大小或客户区大小，那么可以在WM_NCCALCSIZE消息里进行设置，lParam参数表示的是有关矩形，具体意义如下：
Private Type WINDOWPOS
    hwnd As Long
    hWndInsertAfter As Long
    x As Long
    y As Long
    cx As Long
    cy As Long
    flags As Long
End Type
Private Type NCCALCSIZE_PARAMS
    rgrc(0 To 2) As RECT '0为改变后的坐标，1为改变前的坐标，2为客户区的坐标
    lppos As Long 'WINDOWPOS
End Type
问题是，自绘了标题栏后，原来的大部分标题栏消息都需要自己处理，否则是没用的。
最简单的还是设置无标题栏，然后在客户区绘制一个假的标题栏。

mark

OK

明白了

结贴散分

在窗体1的文本框事件触发时显示窗体2，要求窗体2为无标题但有边框，如何设置呢？谢谢

谢谢，但是我不需要标题栏，就是设置BorderStyle=0后的效果，只是这个效果没有边框，我想加个边框上去。

加一个带边框的控件

是啊，加个控件，比如说Shape

另外专业点的话，可以用API函数DrawEdge

晕!
你添加个frmSplash看看什么样子.

–>6楼
不用晕，frmSplash的3D边框就是用DrawEdge绘制出来的。

楼上 我什么也没用 它也那样啊?
不就是Borderstyle=3:Caption="":ControlBox=false吗?

ControlBox=false 可以这样写吗，程序运行时只读