[求助]求教:如何单击窗体里的图片打其他窗体?

毒舌

请教大家几个编辑窗体的问题:

1.这个图里的界面是不是用窗体做的啊?

2.如果是窗体,那么A部分是"工具箱"里的哪个工具啊?我如何做才能点击A然后让B部分随着A变化呢?而且不是弹出新的窗体?

3.我怎么设定C,才能让单击C弹出新的窗体啊?



以上谢谢各位



PS:关于问题3,我看了范例,范例里面是"图像",我也建立一个窗体,然后"拖出图像筐,编辑属性.,在事件里设置"单击",但是在这里的表达式生成器怎么选择啊?范例里的是这个=OpenForms("XX")"这个命令是点击表达式里的选项点出来的还是输入的命令.?但是我打上这个命令了,单击的时候,系统提示"无法找到函数之类的"

kelind

这是一个典型的选项卡控件的例子.

  1,b部分可以先做成窗体,或直接在选项卡中做.

  2,b部分中的图片有click事件,如图片"供应商评价"图片,

    docmd.openforms"供应商评价"(必须有这个窗体)

  3,a部分就是命令按钮.

  

毒舌

十分感谢~



关于,b部分中的图片有click事件,如图片"供应商评价"图片,



    docmd.openforms"供应商评价"(必须有这个窗体)---我已经建立这个窗体了~然后在事件中点击图片还是不行啊~docmd.openforms--这个命令是手动输入的还是点击什么生成的啊?



谢谢

zyz218

Function OpenForms(strFormName As String) As Integer
On Error GoTo Err_OpenForms

    DoCmd.OpenForm strFormName

Exit_OpenForms:
    Exit Function

Err_OpenForms:
    MsgBox Err.Description
    Resume Exit_OpenForms

End Function
以上为右边图片单击事件通用函数

以下为左边标签单击事件来控制右边图片的显示与它的on click属性值和它对应的标签之caption

Private Sub cmdIqc_Click()
    Me.img1.Visible = True: Me.img1.OnClick = "=OpenForms('BOM')"
    Me.img2.Visible = True: Me.img2.OnClick = "=OpenForms('IQC_Material')"
    Me.img3.Visible = True: Me.img3.OnClick = "=OpenForms('IQC_Fail')"
    Me.img4.Visible = True: Me.img4.OnClick = "=OpenForms('Supplier')"
    Me.img5.Visible = True: Me.img5.OnClick = "=OpenForms('IQC_Appraise')"
    Me.img6.Visible = True: Me.img6.OnClick = "=OpenForms('IQC_Check')"
    Me.img7.Visible = True: Me.img7.OnClick = "=OpenForms('IQC_Produce')"
    Me.img8.Visible = True: Me.img8.OnClick = "=OpenForms('IQC_CAR')"
    Me.img9.Visible = True: Me.img9.OnClick = "=OpenForms('IQC_Send')"
    Me.lb1.Visible = True: Me.lb1.Caption = "构成管理"
    Me.lb2.Visible = True: Me.lb2.Caption = "部品目录"
    Me.lb3.Visible = True: Me.lb3.Caption = "不良类别"
    Me.lb4.Visible = True: Me.lb4.Caption = "供应商管理"
    Me.lb5.Visible = True: Me.lb5.Caption = "供应商评价"
    Me.lb6.Visible = True: Me.lb6.Caption = "来料检查"
    Me.lb7.Visible = True: Me.lb7.Caption = "生产线不良"
    Me.lb8.Visible = True: Me.lb8.Caption = "发行要望书"
    Me.lb9.Visible = True: Me.lb9.Caption = "管理要望书"
End Sub

Private Sub cmdOqc_Click()
    Me.img1.Visible = True: Me.img1.OnClick = "=OpenForms('OQC_Production')"
    Me.img2.Visible = True: Me.img2.OnClick = "=OpenForms('OQC_IPQC')"
    Me.img3.Visible = True: Me.img3.OnClick = "=OpenForms('OQC_Check')"
    Me.img4.Visible = True: Me.img4.OnClick = "=OpenForms('OQC_Action')"
    Me.img5.Visible = True: Me.img5.OnClick = "=OpenForms('OQC_CAR')"
    Me.img6.Visible = True: Me.img6.OnClick = "=OpenForms('OQC_Send')"
    Me.img7.Visible = False: Me.img7.OnClick = ""
    Me.img8.Visible = False: Me.img8.OnClick = ""
    Me.img9.Visible = False: Me.img9.OnClick = ""
    Me.lb1.Visible = True: Me.lb1.Caption = "成品管理"
    Me.lb2.Visible = True: Me.lb2.Caption = "IPQC问题点"
    Me.lb3.Visible = True: Me.lb3.Caption = "出荷检查"
    Me.lb4.Visible = True: Me.lb4.Caption = "不良对策"
    Me.lb5.Visible = True: Me.lb5.Caption = "发行要望书"
    Me.lb6.Visible = True: Me.lb6.Caption = "管理要望书"
    Me.lb7.Visible = False: Me.lb7.Caption = ""
    Me.lb8.Visible = False: Me.lb8.Caption = ""
    Me.lb9.Visible = False: Me.lb9.Caption = ""
End Sub

Private Sub cmdQa_Click()
    Me.img1.Visible = True: Me.img1.OnClick = "=OpenForms('QA_Target')"
    Me.img2.Visible = True: Me.img2.OnClick = "=OpenForms('QA_Complain')"
    Me.img3.Visible = True: Me.img3.OnClick = "=OpenForms('QA_Report')"
    Me.img4.Visible = False: Me.img4.OnClick = ""
    Me.img5.Visible = False: Me.img5.OnClick = ""
    Me.img6.Visible = False: Me.img6.OnClick = ""
    Me.img7.Visible = False: Me.img7.OnClick = ""
    Me.img8.Visible = False: Me.img8.OnClick = ""
    Me.img9.Visible = False: Me.img9.OnClick = ""
    Me.lb1.Visible = True: Me.lb1.Caption = "品质目标"
    Me.lb2.Visible = True: Me.lb2.Caption = "客户抱怨"
    Me.lb3.Visible = True: Me.lb3.Caption = "品质月报"
    Me.lb4.Visible = False: Me.lb4.Caption = ""
    Me.lb5.Visible = False: Me.lb5.Caption = ""
    Me.lb6.Visible = False: Me.lb6.Caption = ""
    Me.lb7.Visible = False: Me.lb7.Caption = ""
    Me.lb8.Visible = False: Me.lb8.Caption = ""
    Me.lb9.Visible = False: Me.lb9.Caption = ""
End Sub

Private Sub cmdPro_Click()
    Me.img1.Visible = True: Me.img1.OnClick = "=OpenForms('Produce_MaterialPrice')"
    Me.img2.Visible = True: Me.img2.OnClick = "=OpenForms('Produce_Scrap')"
    Me

zyz218

Me.img1.Visible = True: Me.img1.OnClick = "=OpenForms('BOM')"
以上为图片img1显示并打开叫做BOM的窗口并要用到以下过程：

’------------------------------------------------------------

Function OpenForms(strFormName As String) As Integer
On Error GoTo Err_OpenForms

    DoCmd.OpenForm strFormName

Exit_OpenForms:
    Exit Function

Err_OpenForms:
    MsgBox Err.Description
    Resume Exit_OpenForms

End Function
’---------------------------------------------------------------------

Me.lb1.Visible = True: Me.lb1.Caption = "部品单价"
以上为标签lb1显示并使它显示为"部品单价"

[此贴子已经被作者于2006-9-23 9:58:41编辑过]