VB程序员博客
01 29th, 2010
主窗体中有一按钮，点击该按钮，打开子窗体的同时关闭主窗体。然后，当点击子窗体右上角的“X”时，关闭子窗体的同时，又打开主窗体，这如何实现？
小弟是这样做的
在主窗体中写：
Private Sub cmd2_Click()
Unload Me
frm2.Show (1)
End Sub
在子窗体中写：
Private Sub Form_Unload(Cancel As Integer)
frmMain.Show
End Sub
但是想法只实现前面一半，当我关闭子窗体时出现错误，提示：当打开有模式窗体时不能显示无模式窗体
实现不了。
Private Sub Form_Unload(Cancel As Integer)
frmMain.Show
End Sub
去掉。。。。。。。。。。。。。。可以了，把这个“(1)”去掉就搞定了
可能是我概念不清，不该说成是子窗体
01 29th, 2010
主窗体中有一按钮，点击该按钮，打开子窗体的同时关闭主窗体。然后，当点击子窗体右上角的“X”时，关闭子窗体的同时，又打开主窗体，这如何实现？
小弟是这样做的
在主窗体中写：
Private Sub cmd2_Click()
Unload Me
frm2.Show (1)
End Sub
在子窗体中写：
Private Sub Form_Unload(Cancel As Integer)
frmMain.Show
End Sub
但是想法只实现前面一半，当我关闭子窗体时出现错误，提示：当打开有模式窗体时不能显示无模式窗体
实现不了。
Private Sub Form_Unload(Cancel As Integer)
frmMain.Show
End Sub
去掉。。。。。。。。。。。。。。可以了，把这个“(1)”去掉就搞定了
可能是我概念不清，不该说成是子窗体
01 29th, 2010
主窗体中有一按钮，点击该按钮，打开子窗体的同时关闭主窗体。然后，当点击子窗体右上角的“X”时，关闭子窗体的同时，又打开主窗体，这如何实现？
小弟是这样做的
在主窗体中写：
Private Sub cmd2_Click()
Unload Me
frm2.Show (1)
End Sub
在子窗体中写：
Private Sub Form_Unload(Cancel As Integer)
frmMain.Show
End Sub
但是想法只实现前面一半，当我关闭子窗体时出现错误，提示：当打开有模式窗体时不能显示无模式窗体
实现不了。
Private Sub Form_Unload(Cancel As Integer)
frmMain.Show
End Sub
去掉。。。。。。。。。。。。。。可以了，把这个“(1)”去掉就搞定了
可能是我概念不清，不该说成是子窗体
01 29th, 2010
主窗体中有一按钮，点击该按钮，打开子窗体的同时关闭主窗体。然后，当点击子窗体右上角的“X”时，关闭子窗体的同时，又打开主窗体，这如何实现？
小弟是这样做的
在主窗体中写：
Private Sub cmd2_Click()
Unload Me
frm2.Show (1)
End Sub
在子窗体中写：
Private Sub Form_Unload(Cancel As Integer)
frmMain.Show
End Sub
但是想法只实现前面一半，当我关闭子窗体时出现错误，提示：当打开有模式窗体时不能显示无模式窗体
实现不了。
Private Sub Form_Unload(Cancel As Integer)
frmMain.Show
End Sub
去掉。。。。。。。。。。。。。。可以了，把这个“(1)”去掉就搞定了
可能是我概念不清，不该说成是子窗体
01 29th, 2010
主窗体中有一按钮，点击该按钮，打开子窗体的同时关闭主窗体。然后，当点击子窗体右上角的“X”时，关闭子窗体的同时，又打开主窗体，这如何实现？
小弟是这样做的
在主窗体中写：
Private Sub cmd2_Click()
Unload Me
frm2.Show (1)
End Sub
在子窗体中写：
Private Sub Form_Unload(Cancel As Integer)
frmMain.Show
End Sub
但是想法只实现前面一半，当我关闭子窗体时出现错误，提示：当打开有模式窗体时不能显示无模式窗体
实现不了。
Private Sub Form_Unload(Cancel As Integer)
frmMain.Show
End Sub
去掉。。。。。。。。。。。。。。可以了，把这个“(1)”去掉就搞定了
可能是我概念不清，不该说成是子窗体
01 29th, 2010
主窗体中有一按钮，点击该按钮，打开子窗体的同时关闭主窗体。然后，当点击子窗体右上角的“X”时，关闭子窗体的同时，又打开主窗体，这如何实现？
小弟是这样做的
在主窗体中写：
Private Sub cmd2_Click()
Unload Me
frm2.Show (1)
End Sub
在子窗体中写：
Private Sub Form_Unload(Cancel As Integer)
frmMain.Show
End Sub
但是想法只实现前面一半，当我关闭子窗体时出现错误，提示：当打开有模式窗体时不能显示无模式窗体
实现不了。
Private Sub Form_Unload(Cancel As Integer)
frmMain.Show
End Sub
去掉。。。。。。。。。。。。。。可以了，把这个“(1)”去掉就搞定了
可能是我概念不清，不该说成是子窗体
01 15th, 2010
设置好的控件位置在不同分辨率的电脑上经常发生变化，怎样能才固定好各自的相对位置？
有没什么设置好办法
如需要阅读该回复，请控件.LEFT 和 控件.TOP分辨率改变的只是像素的大小,分辨率不同像素的大小有变,但是象"缇"之类的单位并不随分辨率改变,所以,左和上边界都用"缇"作单位量度,Scalemode=VbTwips就行.不要用像素作单位.我晕 VB本来就是用缇的 像素得转换成缇才有效按桌面比例
Screen.Width,Screen.Height没有更好的捷径，只能自已动手搞的我也想要这种啊~~~晕倒~~~~找了好几天了~~~一直没有找到这类的解决方法~~~最多只能是控件也随之改变~~但我不想改变控件大小啊….只要位置就可以了~~~哎
没什么好办法，判断屏幕分辩率，然后重新布局。<
WPF看来只有自己动手设置，没别的特别方法
01 12th, 2010
vb 改变其他程序窗体大小
及 去掉其他程序窗体在任务栏上的按钮
API 看看
先获得程序窗体句柄，然后再做其他操作。
<
FindWindow()
MoveWindow()<
<
<
<
楼上的几位说 思路 没人批评 只能让楼主在瞎摸瞎等
给代码的人 又要挨批 我宁可坐着看热闹….. 因为有人大张旗鼓 渔 与 鱼
妇人之见 俺莫可奈何, 但我还是有一句话 两个字 痛心
<
lStyle = lStyle And Not WS_EX_APPWINDOW
lStyle = lStyle And Not WS_EX_WINDOWEDGE
试了很多次都没能成功，不知道问题出在哪用NirCmd命令行工具
http://www.nirsoft.net
01 2nd, 2010
建了一个表“XX”有A、B、C、D字段，A字段是一个独一无二的编号
另一个表“YY”有A、B、C、D、E、F、G、H字段
新建一个窗体，这个窗体录入结果保存到“YY”表中，窗体中的控件有A、B、C、D、E、F、G、H
实现窗体中：输入A字段中的独一无二的编号后，窗体中B、C、D控件就自动跳出XX表中字段的内容，然后依次输入E、F、G、H的内容，保存结果进入“YY”表中。
请教高手指点…
在哪里输入啊？？？自己顶表XX和表YY的A/B/C/D字段的内容和值完全一样么？如果表XX和表YY的A/B/C/D字段的内容和值完全一样，那么你现在这样设计表结构是冗余太多，容易带来问题。
应该
(1)把表YY中的B, C, D字段都删掉，把表XX的A字段和表YY的A字段关联。
(2)新建ACCESS窗体时，数据源直接从表XX和表YY的JOIN查询得到，这样你的要求就可以自动满足。A控件change事件不断刷新；或者A控件失去焦点时查XX表，分别给BCD赋值。<
你可以把你的报表的记录源也改成来自XX和YY的联合查询。
在B、C、D控件中输入“DLookUp”函数如下：
=DLookUp("[被引用的字段名称，即B]","[被引用的表名称，即XX]","[被引用的表中的条件字段，即A]='" & Forms![所属窗体名称]![保存结果的表中的条件字段，即YY表中的A字段名称] & "'")
12 24th, 2009
如题，本人先提供一个美化VB窗体的代码，希望大家一起交流。
VB可以产生四边形以外其他形状的Form
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Form_Load()
Dim lReturn As Long
Me.Show
lReturn = SetWindowRgn(hWnd, CreateEllipticRgn(10, 10, 340, 150), True)
End Sub
需要实例可到下面的网址下载：
http://download.csdn.net/source/1849907学习up界面设计说起来简单，其实做起来就不那么容易了。顶楼主一个！我的方案很变态,我基本上是用webbrowser做界面的….不用本身的控件,这样的效果好写
.net的wpf的应用也是借鉴了这类的方案VB主要做点应用,要求美观用别的开发工具好了,或者借助别的工具异形窗体,vb可以做出各种各样的异形窗体,如:宠物形,中空形等等
VB没皮肤的吗？公司好像做图片设计，呵呵<
<
希望大家继续交流，多多益善！up
flash + html 开发的界面<
窗体 关键色 透明 就ok了GDI…大家来交流啊<
偶只会做‘古典’的窗体…………..
学习希望各位多多提供实例upUser Interface is Important.Windows程序的界面有专门的美化软件，比如stylexp对于vb皮肤的应用不是很懂<
看看我这个效果如何?
友情 UP中。。。。<
来弄分的<
<
不错！值得学习
大家都来关心一下，此贴不能沉下去！http://topic.csdn.net/u/20091209/22/7e601de4-c531-46a7-94db-56e251f918ba.html?68190
参考 此帖哦,顶下喜欢做界面….UP<
为了省事可以直接用皮肤控件