 |
VFP ·R¥ÎªÌªÀ°Ï ¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
|
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
xinjie
µù¥U®É¶¡: 2006-01-16 ¤å³¹: 28
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤@¤ë 16, 2006 9:41 pm ¤å³¹¥DÃD: ªì来¥E¨ì¡A¤U¤F¤£¤Ö¦n东¦è¡A¦³来¦³©¹¤è为°µ¤H¤§¥»¡I |
|
|
¦Û¤v学习´Á间ªº¤@点Ê^会¡A¦@¨É¤§¡G
¥N½X: |
****************************************
¤@¡B³q¥Îµæ单¥N码¼Ò«¬¡A¥¿¦b§ï进¡A这¨½¬O°ò¥»ì²z
ªí结ÌÛ¡G
¦r¬q ¦r¬q¦W 类«¬ 宽«× ¤p数¦ì ¯Á¤Þ ±Æ§Ç Nulls ¤U¤@个 ¨B长
1 µæ单编号 ¦r²Å«¬ 10 ¬O
2 µæ单标题 ¦r²Å«¬ 10 ¬O
3 µæ单标题¤å¥» ¦r²Å«¬ 18 §_
4 ¤÷µæ单标题 ¦r²Å«¬ 10 ¬O
5 ¤U级 逻辑«¬ 1
µæ单¥N码¡G
DEFINE MENU _mymenu
USE menu
SCAN
IF LEN(ALLTRIM(µæ单编号))#0 .or. LEN(ALLTRIM(µæ单编号))#.null.
IF LEN(ALLTRIM(¤÷µæ单标题))#0.or.len(alltrim(¤÷µæ单标题))#.null.
d='DEFINE BAR '+ALLTRIM(µæ单编号)+' OF '+ALLTRIM(¤÷µæ单标题)+' PROMPT '+'"'+ALLTRIM(µæ单标题¤å¥»)+'"'
&d
IF ¤U级=.t.
e='on bar '+ALLTRIM(µæ单编号)+' of '+ALLTRIM(¤÷µæ单标题)+' ACTIVATE POPUP '+ALLTRIM(µæ单标题)
&e
f='DEFINE POPUP '+ALLTRIM(µæ单标题)+' MARGIN RELATIVE'
&f
ENDIF
ELSE
e='DEFINE POPUP '+ALLTRIM(µæ单标题¤å¥»)
&e
ENDIF
ELSE &&²Ä1条记录
a='DEFINE PAD '+ALLTRIM(µæ单标题)+' OF _mymenu PROMPT '+'"'+ALLTRIM(µæ单标题¤å¥»)+'"'+' COLOR SCHEME 3'
&a
IF ¤U级=.t.
b='ON PAD '+alltrim(µæ单标题)+' OF _mymenu ACTIVATE POPUP '+alltrim(µæ单标题)
&b
c='DEFINE POPUP '+ALLTRIM(µæ单标题)+' MARGIN RELATIVE SHADOW'
&c
ENDIF
ENDIF
ENDSCAN
activate menu _mymenu nowait
*****************************************
¤G¡B§ó§ïVFPµæ单I´º颜¦â
§ó§ïµæ单ªº颜¦â¡A´¿经¦b¤@个软¥ó¤¤见¨ì¡A¦n¶H¬O¡mð试¤T¦Êº¡n¡A¥ÎVFP°µªº¡C书¨ì¥Î时¤è«ë¤Ö°Ú¡A当¦~没¦³¥J细µZ¿i¡A现¦b却¬O个§¢¡C
¬Ý¤F«Ü¦hªº关¤_VFPªº资®Æ¡A对¤_°t¦â¤è®×¤]仅仅¬O¹é¹é数语¡A没¦³§ó²`¨èªº¸Ñ释¡C¬Q¤Ñ¦b书©±买¤F¥»书¡A仅¦³¤@个¨Ò¤l¡A§ó§ï§Ö±¶µæ单颜¦âªº¡C¥J细µZ¿i¤F¤@¤U¡A¦³¥H¤UÊ^会¡G
对¤_VFPªºµæ单¡A¦pªG¥Î©R¥O来«Ø¥ßªº话¡A¦³¤@个¤l¥y¡G [Color Scheme nSchemeNumber | COLOR ColorPairList] ,¦Ó这个¤l¥y¬O¤°¤\·N«ä©O¡H经½译¦ZªºVFP帮§U¤å¥ó¸Ñ释¡A¬O这样ªº¡G¡§Color Scheme nSchemeNumber ¡G为单个µæ单栏«ü©w颜¦â¡CCOLOR ColorPairList¡G 为单个µæ单栏«ü©w颜¦â¡CÀq认±¡况¤U¡Aµæ单项ªº颜¦â¥Ñ当«e颜¦â¶°¤¤°t¦â¤è®× 2 决©w¡C¡¨
这¨½¡AScheme nSchemeNumber ©MColorPairList¤S¬O¤°¤\·N«ä©O¡H经¬d询帮§U¡A±o¨ì¥H¤Uªº¸Ñ释¡G¡§Scheme nSchemeNumber ¬OVFP¤¤°t¦â¤è®×ªº编号¡A¦b Visual FoxPro ¤¤¡A°t¦â¤è®× 13 ¨ì 15 ¯d§@内³¡¨Ï¥Î¡C请¤£n¨Ï¥Î这¨Ç°t¦â¤è®×¡C°t¦â¤è®×¤¤颜¦â对数¥Ø¡A³Ì¦h为 10 对¡C¡¨这¨Ç¡A´N¬O§Ú¦bVFP帮§U¤å¥ó¤¤±o¨ìªº©Ò¦³¦³¥Îªº«H®§¡C
买来书¤Wªº¨Ò¤l¬O这样¸Ñ决ªº¡G¦bªí单ªºLOAD¨Æ¥ó¤¤§Q¥ÎSET COLOR OF SCHEME ©R¥O©w义°t¦â¤è®×¡Aªí单¨ø载¦Z¡A«ìÎ`¨t统Àq认ªº°t¦â¤è®×¡C¦b随书¥ú盘¤¤ªº¥Ü¨Ò¤¤¦³©úÚ̪º¸Ñ释¡Aì¤å¦p¤U¡G
* /µæ单¥¢®Ä«e´º¦â©MI´º¦â\ /µæ单«e´º¦â©MI´º¦â\ /µæ单边线颜¦â\ /±±¨î´£¥Ü«e´º©MI´º\ /选¤¤项ªº«e´º¦â©MI´º¦â\
set color of scheme 4 to rgb(0,0,0,83,169,255),rgb(123,0,255,8,55,255),rgb(110,110,192,0,98,177),rgb(252,222,26,83,169,255),,rgb(0,255,255,0,98,177)
这个¥N码®i开¬Ý¥i¯à§ó®e©ö²z¸Ñ¡A¸Ñ释¦p¤U¡GVFP9¨t统¤¤°t¦â¤è®×从1¨ì12¬O这样ªº¡G
1¡B¥Î户µ¡¤f¡F
2¡B¥Î户µæ单¡F
3¡Bµæ单栏¡F
4¡B弹¥X¦¡µæ单¡F
5¡B对话®Ø¡F
6¡B弹¥X¦¡对话®Ø¡F
7¡Bĵ§i¡F
8¡Bµ¡¤f¡F
9¡B弹¥Xµ¡¤f¡F
10¡B浏览¡F
11¡B报ªí¡F
12¡B弹¥X¦¡Äµ§i
¦Ó这个©R¥O¡A´N¬O©w义²Ä4个°t¦â¤è®×¤¤ªº1¡B2¡B3¡B4¡B6颜¦â对ªº°t¦â¡A¤À别对应¡Gµæ单¥¢®Ä«e´º¦â©MI´º¦â¡Bµæ单«e´º¦â©MI´º¦â¡Bµæ单边线颜¦â¡B±±¨î´£¥Ü«e´º©MI´º¡B选¤¤项ªº«e´º¦â©MI´º¦â¡C
¨ì这¨½¡A应该¤ñ较©ú¥Õ¤F§a¡I
Scheme nSchemeNumber ¤¤ªºnSchemeNumber´N¬O«ü°t¦â¤è®×ªº编号¡A¦ÓCOLOR ColorPairList¤¤ªºColorPairList´N¬O«ü©ú¬O«ü©w°t¦â¤è®×¤¤ªº²Ä¤L对°t¦â¡I
|
|
|
¦^³»ºÝ |
|
 |
xinjie
µù¥U®É¶¡: 2006-01-16 ¤å³¹: 28
²Ä 2 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤@¤ë 16, 2006 9:42 pm ¤å³¹¥DÃD: |
|
|
¥»来¥N码¬O¦³缩进ªº¡A贴¥X¦Z¡A¤~发现®æ¦¡§ï¤F¡C _________________ https://github.com/vfp9 |
|
¦^³»ºÝ |
|
 |
|
|
±z µLªk ¦b³oÓª©±µoªí¤å³¹ ±z µLªk ¦b³oÓª©±¦^ÂФ峹 ±z µLªk ¦b³oÓª©±½s¿è¤å³¹ ±z µLªk ¦b³oÓª©±§R°£¤å³¹ ±z µLªk ¦b³oÓª©±¶i¦æ§ë²¼ ±z µLªk ¦b³oÓª©±ªþ¥[ÀÉ®× ±z µLªk ¦b³oÓª©±¤U¸üÀÉ®×
|
Powered by phpBB © 2001, 2005 phpBB Group ¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@
|