请教三个问题

[boboqin]

问题1：foxpro6.0中有Toolbar控件吗？小弟找了半天没找着。

问题2：Form控件的WindowState属性设为最大化，在Foxpro里执行时是最大化，但连编完后，应用程序的窗口运行时却不会自动最大化，如何设置？

问题3：怎样才能让应用程序有自己的主窗口，而不是在foxpro的主窗口中运行，每次使用主窗口的关闭按钮，总是提示"不能退出Visual Foxpro"。

[boboqin]

怎么没人回答呢？

[marki]

找一下這裡的帖子,都一大筐了~

[boboqin]

会答就赐教一下，不会答或不愿答就不要在这里卖骚。

[myhejian3658]

up

[lz_zxf]

1、VFP中的ToolBar是依靠类实现的。

3、做自己的主窗口？很辛苦的

好好看一看VFP自带的例子，几乎包括了VFP开发中的所有问题

[zhongyj]

1.
Local oform

oform=createobject("tbform1")
oform.addobject("close1","closecmd1")
oform.visible=.T.
oform.oToolbar.visible=.T.
oform.controlbox=.F.
oform.close1.visible=.T.
Read event
oform.release

Define CLASS tbform1 AS form
Height=250
Width=350
AutoCenter=.T.
Caption="Sample"
oToolbar=""
Procedure init
this.oToolbar=createobject("mytoolbar")
this.oToolbar.left=1
this.oToolbar.top=1
Endproc
Enddefine
Define CLASS mytoolbar AS toolbar
color3=-1

ADD OBJECT lbl1 AS LABEL WITH ;
Caption = "Label", ;
AutoSize = .T., ;
BackStyle = 0
ADD OBJECT cmdColor AS commandbutton WITH ;
HEIGHT = 24,;
WIDTH = 24, ;
Caption = 'C', ;
ToolTipText = 'Color'
PROCEDURE Init
*- Setup and Dock ToolBar
THIS.lbl1.visible=.T.
THIS.cmdColor.visible=.T.
THIS.Caption = "Test toolbar"
THIS.SetAll('FontSize',8)
ENDPROC

PROCEDURE cmdColor.Click
if this.parent.color3<255
this.parent.color3=this.parent.color3+16
else
this.parent.color3=0
endif
_SCREEN.ActiveForm.backcolor=rgb(212,208,this.parent.color3)
ENDPROC

Enddefine
Define CLASS closecmd1 AS commandbutton
Top=226
Left=0
Width=60
Height=24
Caption="Close"
Procedure click

Clear event
Endproc
Enddefine
2.form的init事件中加入
this.windowstate=2
3.form的showwindow屬性設置為2
主窗口的關閉按鈕里加入
on shutdown
clear event
close all
clear all

[xymsgw]

3.在主程序中加入
_screen.visible=.f.

[marki]

靠,你還蠻拽啊~會答就是賜教,不會答
就是賣騷,你是罵誰啊,小樣!