急!!!问一个比较笨的问题,界面上的命令按纽怎么不见了?? 我想说的是,我在别人的机里可以看到我界面上的命令按钮,为什么回到我自己的机里看不到了,界面最大化也看不到是什么原因呢?是不是我的VB没设好呢?各位快帮帮我啊~~~~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 可能不关代码什么事我的toolbar就显示不出好几个按钮 呵呵我也不知道是怎么回事 分辩率调高了,还是看不到啊??command1跟command3代码如下:Private Sub Command1_Click()Form2.Adodc1.Recordset.UpdateForm2.Adodc1.Recordset("cjmc") = Text1.TextForm2.Adodc1.Recordset("cjdz") = Text2.Text Form2.Adodc1.Recordset("lxr") = Text3.Text Form2.Adodc1.Recordset("dhA") = Text4.Text Form2.Adodc1.Recordset("dhB") = Text5.TextForm2.Adodc1.Recordset("cz") = Text6.Text Form2.Adodc1.Recordset("dzyj") = Text7.TextForm2.Adodc1.Recordset("yzbm") = Text8.Text Form2.Adodc1.Recordset("bz") = Text9.TextForm2.Adodc1.Recordset("xhgg") = Text10.TextForm2.Adodc1.Recordset("tpbh") = Text11.TextForm2.Adodc1.Recordset("cjmc") = Text12.TextForm2.Adodc1.Recordset("flh") = Text13.Text Form2.Adodc1.Recordset("djfw") = Text14.Text Form2.Adodc1.Recordset("cjdz") = Text15.Text Form2.Adodc1.Recordset("bsccz") = Text16.TextForm2.Adodc1.Recordset("bscdzyj") = Text17.TextMsgBox ("修改成功")Form2.Adodc1.Recordset.UpdateEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_GotFocus()Adodc1.Recordset.UpdateEnd SubPrivate Sub Form_Load()Text1.Text = Form2.Adodc1.Recordset("cjmc")Text2.Text = Form2.Adodc1.Recordset("cjdz")Text3.Text = Form2.Adodc1.Recordset("lxr")Text4.Text = Form2.Adodc1.Recordset("dhA")Text5.Text = Form2.Adodc1.Recordset("dhB")Text6.Text = Form2.Adodc1.Recordset("cz")Text7.Text = Form2.Adodc1.Recordset("dzyj")Text8.Text = Form2.Adodc1.Recordset("yzbm")Text9.Text = Form2.Adodc1.Recordset("bz")Text10.Text = Form2.Adodc1.Recordset("xhgg")Text11.Text = Form2.Adodc1.Recordset("tpbh")Text12.Text = Form2.Adodc1.Recordset("cjmc")Text13.Text = Form2.Adodc1.Recordset("flh")Text14.Text = Form2.Adodc1.Recordset("djfw")Text15.Text = Form2.Adodc1.Recordset("cjdz")Text16.Text = Form2.Adodc1.Recordset("bsccz")Text17.Text = Form2.Adodc1.Recordset("bscdzyj")Text18.Text = Form2.Adodc1.Recordset("sbm")If Form2.Adodc1.Recordset("tp") <> "" Then Picture1.Picture = LoadPicture(Form2.Adodc1.Recordset("tp"))End Sub to:yinweihong(yige) 我的toolbar里的按钮就没了。 作实验的时候有,一正式做程序的时候就没了。 害的我只好用个frame代替。 属性下拉框也不见踪影吗?如果这样,就再加个CommandButton,把名字改成不见了的那个。 求助长期师傅 为了VB版的人气,为了大家的专家分,散分。 请教 Activex 控件如何才能正确显示简, 繁体啊?? VB可以实现两个字串异或加密吗?? 如何使两个控件同时获得焦点? 资源管理器中点击列头排序时出现的那个方向箭头, 在 ListView 中能否实现? 如何在ppt中实现图形的自由拖动并在拖动后直接在图形中输入任意文字 如何实现MSFlexGrid 添加checkbox,请详细说明,我vb很菜,谢谢 一个form的icon 怎样获得一个存在文件的icon 怎样用vb把dos 命令的结果输出到一个文本文件里? 求vb群的qq,谢了! vb的Long类型
我的toolbar就显示不出好几个按钮 呵呵
我也不知道是怎么回事
Private Sub Command1_Click()
Form2.Adodc1.Recordset.Update
Form2.Adodc1.Recordset("cjmc") = Text1.Text
Form2.Adodc1.Recordset("cjdz") = Text2.Text
Form2.Adodc1.Recordset("lxr") = Text3.Text
Form2.Adodc1.Recordset("dhA") = Text4.Text
Form2.Adodc1.Recordset("dhB") = Text5.Text
Form2.Adodc1.Recordset("cz") = Text6.Text
Form2.Adodc1.Recordset("dzyj") = Text7.Text
Form2.Adodc1.Recordset("yzbm") = Text8.Text
Form2.Adodc1.Recordset("bz") = Text9.Text
Form2.Adodc1.Recordset("xhgg") = Text10.Text
Form2.Adodc1.Recordset("tpbh") = Text11.Text
Form2.Adodc1.Recordset("cjmc") = Text12.Text
Form2.Adodc1.Recordset("flh") = Text13.Text
Form2.Adodc1.Recordset("djfw") = Text14.Text
Form2.Adodc1.Recordset("cjdz") = Text15.Text
Form2.Adodc1.Recordset("bsccz") = Text16.Text
Form2.Adodc1.Recordset("bscdzyj") = Text17.Text
MsgBox ("修改成功")
Form2.Adodc1.Recordset.Update
End SubPrivate Sub Command3_Click()
Unload Me
End SubPrivate Sub Form_GotFocus()
Adodc1.Recordset.Update
End SubPrivate Sub Form_Load()
Text1.Text = Form2.Adodc1.Recordset("cjmc")
Text2.Text = Form2.Adodc1.Recordset("cjdz")
Text3.Text = Form2.Adodc1.Recordset("lxr")
Text4.Text = Form2.Adodc1.Recordset("dhA")
Text5.Text = Form2.Adodc1.Recordset("dhB")
Text6.Text = Form2.Adodc1.Recordset("cz")
Text7.Text = Form2.Adodc1.Recordset("dzyj")
Text8.Text = Form2.Adodc1.Recordset("yzbm")
Text9.Text = Form2.Adodc1.Recordset("bz")
Text10.Text = Form2.Adodc1.Recordset("xhgg")
Text11.Text = Form2.Adodc1.Recordset("tpbh")
Text12.Text = Form2.Adodc1.Recordset("cjmc")
Text13.Text = Form2.Adodc1.Recordset("flh")
Text14.Text = Form2.Adodc1.Recordset("djfw")
Text15.Text = Form2.Adodc1.Recordset("cjdz")
Text16.Text = Form2.Adodc1.Recordset("bsccz")
Text17.Text = Form2.Adodc1.Recordset("bscdzyj")
Text18.Text = Form2.Adodc1.Recordset("sbm")If Form2.Adodc1.Recordset("tp") <> "" Then Picture1.Picture = LoadPicture(Form2.Adodc1.Recordset("tp"))
End Sub
作实验的时候有,一正式做程序的时候就没了。
害的我只好用个frame代替。
如果这样,就再加个CommandButton,把名字改成不见了的那个。