我想说的是,我在别人的机里可以看到我界面上的命令按钮,为什么回到我自己的机里看不到了,界面最大化也看不到是什么原因呢?是不是我的VB没设好呢?各位快帮帮我啊~~~~

解决方案 »

  1.   

    可能不关代码什么事
    我的toolbar就显示不出好几个按钮  呵呵
    我也不知道是怎么回事
      

  2.   

    分辩率调高了,还是看不到啊??command1跟command3代码如下:
    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
      

  3.   

    to:yinweihong(yige) 我的toolbar里的按钮就没了。
     作实验的时候有,一正式做程序的时候就没了。
     害的我只好用个frame代替。
      

  4.   

    属性下拉框也不见踪影吗?
    如果这样,就再加个CommandButton,把名字改成不见了的那个。