Visual FoxPro 的疑难杂症

白日梦

tstan135 于 3-9-2004 08:30 PM  说 :
请问要如何让 *.ocx 的 file build 在 *.exe 里，或让 program 自动从 windows/system32 读取？
因为自从用了 olecontrol 后，program 拿到别台电脑 run 时， 总是找不到 *.ocx 的 file。

ActiveX *.ocx 档案通常隐藏在 c:\Windows\System32 里，

当你用 InstallShield create distribute setup.exe 时要把需要用到的 File *.ocx 加入安装 [SystemFolder]里。

Microsoft Date and Time Picker Control 6.0 (SP4) 就需要用 c:\Windows\System32\mscomct2.ocx

简单点就是在 InstallShield 的 Objects/MergeModules 在 Microsoft Common Controls 2 ActiveX Control DLL 的格子里打勾 √

白日梦

tstan135 于 3-9-2004 08:40 PM  说 :
有两个日期的控件。当在第一个控件输入某个日期后，要如何才能让第二个控件自动显示在第一个控件输入的月份的最后一天。？

你得写个自编的函数 eom() ，最后一天就是下个月一号减一天。

然后在输入栏的 when event 编程，
This.Value = eom(Thisform.oleDate1.Value)

tstan135

白日梦 于 14-8-2004 10:14 AM  说 :
现创造新的菜单 menu1，
用 menu 菜单 generate...，
创造新的表格 form1，
在 form1.init 编码放入以下，
DO MENU1.MPR WITH THIS,.T.  

1.请问白日梦,要在 FORM 里加上 MENU BAR,除了以上的步骤是不是还须要在 VIEW -> General Options 里选 Top-Level Form 和在 Form1 的 ShowWindow 设为 2？

2.我用以上的方法就可以在 FORM 里加上 MENU BAR。请问当我的 Form1 设为 Form Set 后，当 Form2 Show 的时候 Form1 要设为 Enabled = .F. 应该怎样写？（Form1 和 Form2 的 ShowWindow 都设为 2）我是这样写的 thisformset.form1.enabled = .F.
但总是 Error。"Unknow Member Form1"

[ Last edited by tstan135 on 5-9-2004 at 06:03 PM ]

白日梦

1. 是的。

2. 你应该是使用错误了。你可以照以下方法，

Form2.Init 里的程序，
This.Hide

当你呼叫 Form2 时，
Thisformset.Form1.Hide  && 加入这行假如你要把 Form1 隐藏起来
Thisformset.Form2.Show

当你要离开 Form2 时，
Thisformset.Form1.Show
Thisform.Hide

tstan135

在 FORM 里加上 MENU BAR 后，请问当 FORM ENABLED ＝ .F. 时
为何  MENU BAR 却是 ENABLE ？要如何才能使 MENU BAR 也和 FORM 一样 ENABLED ＝ .F.？

白日梦

用 Set SysMenu To 把菜单隐藏，到要用到时 Do Menu.mpr 叫出菜单。

第二个方法较复杂，每一项 menu bar 都可以设定 skip for <...>，
如果你能掌握这项技巧，你就能像我般控制用户开启功能-User Access Right等等。

以下较简单的例子，
在 main.prg 放以下几行指令∶
Public z_Menu
z_Menu = .T.

每项 menu bar 都设定 skip for !z_Menu

Form.Init 或 Form.Load 里加入∶
z_Menu = .F.

然后，在 Form.Release 或 Form.Unload 里加入∶
z_Menu = .T.
_Screen.Refresh

tstan135

我的意思是在 FORM1 里是加上 MENU BAR 的，当 FORM2 SHOW 时，
FORM1 就会处于 ENABLE = .F. 的状态。不管我 CLICK FORM1 的那个地方都不会有反应，但除了 CLICK 在 FORM1 的 MAX，MIN， CLOSE BUTTON 和 MENU 那一整行的任何地方，FORM1 就会显示在 FORM2 的前面。（Form1 和 Form2 的 ShowWindow 都设为 2）
请问要如何才能让它们全部处于 ENABLE = .F. 的状态？就算把 MENU SKIP 了也是一样有同样的问题。

白日梦

放弃 .Enabled = .F. ， 用 Thisformset.Form1.Hide 。

tstan135

我就是不想让它 HIDE。因为 FORM2 是用来 ENTRY DATA 到 FORM1 的 GRID 里，要是把 FORM1 HIDE 了，看了好象怪怪的。

GoodMorning

tstan135 于 7-9-2004 02:16 PM  说 :
我就是不想让它 HIDE。因为 FORM2 是用来 ENTRY DATA 到 FORM1 的 GRID 里，要是把 FORM1 HIDE 了，看了好象怪怪的。

說起怪怪, 你可覺得在主營目 _screen, 下有一個 form1, 在 form1 中有一個 form2, 你覺得好看嗎? 介紹了幾個網路給你, 你去下載看看吧, 對你在設計介面是有幫助的.

tstan135

在一个 TEXT BOX 里的 DATA TYPE 是 NUMERIC，当 TEXT BOX 里没有 DATA 时，要如何才能使它只显示空白而不是 0。

白日梦

Text1.Format = 'Z'

tstan135

有两个 COMBO 和 一个 TEXT BOX。TEXT BOX 的 VALUE 是从两个 COMBO 里的 DATA 选出的。我是这样写的。

combo1.valid
select farbic
locate for farbic == this.value and colour == thisform.combo2.value
thisform.text1.value = farbic.cost


combo2.valid
select farbic
locate for farbic == thisform.combo1.value and colour == this.value
thisform.text1.value = farbic.cost

text1.when
select farbic
locate for fabric == thisform.combo1.value and colour == thisform.combo2.value
this.value = farbic.cost

我想请问为何当我打开 MODIFY 时，如果 FOCUS 途经其中一个控件时就必须从新 CLICK 两个 COMBO 里的 DATA， 不然 TEXT BOX 的 VALUE 就是零（错误）。

白日梦

大致上没问题，
加多一行在最后吧！
thisform.text1.refresh

tstan135

当 TEXT BOX 设定为 READONLY 时，其颜色就会变成灰色。请问如何把灰色换成别的颜色？

那是 VFP 内定 Color 值，你改不了。

如若想改，就不要用 textbox readonly 来设 readonly, 自己 manual code it to be readonly。

GoodMorning

tstan135 于 11-9-2004 08:31 PM  说 :
当 TEXT BOX 设定为 READONLY 时，其颜色就会变成灰色。请问如何把灰色换成别的颜色？

有一個作法, 將之text box disable,可更改 disable的顏色

tstan135

白日梦 于 9-9-2004 03:48 PM  说 :
Text1.Format = 'Z'

如果用 Text1.Format = 'Z'，要是 INPUT 是 0 的话就不能会显示了。
我曾看过一个 PROGRAM,  在TEXT BOX 里的 DATA TYPE 是 NUMERIC，当 TEXT BOX 里没有 DATA 时它只显示空白。当 USER 输入 DATA 后它才会显示 USER 所输入的 DATA 包括 0。

白日梦

tstan135 于 12-9-2004 11:35 AM  说 :
如果用 Text1.Format = 'Z'，要是 INPUT 是 0 的话就不能会显示了。

是不能显示。

我曾看过一个 PROGRAM,  在TEXT BOX 里的 DATA TYPE 是 NUMERIC，当 TEXT BOX 里没有 DATA 时它只显示空白。当 USER 输入 DATA 后它才会显示 ...

Format 是空白的。

白日梦

tstan135 于 11-9-2004 08:31 PM  说 :
当 TEXT BOX 设定为 READONLY 时，其颜色就会变成灰色。请问如何把灰色换成别的颜色？

改 .DisabledBackColor 和 .DisabledForeColor 属性。