builderb.htm

来自「MSComm控件资料,Visual Basic 6.0(以下简称VB) 是一种功」· HTM 代码 · 共 65 行

HTM
65 行
字号 
<HTML>
<HEAD>
<TITLE>BuilderB</TITLE>
</HEAD>
<BODY BACKGROUND="brickwal.gif" BGCOLOR="silver">
{{>GenBuilder}}
</BODY>
</HTML>

<SCRIPT LANGUAGE="VFPS">

SET LIBRARY TO (HOME()+"FoxTools.fll") ADDITIVE
oTHIS.RunScript("OpenBuilderBTable")
oTHIS.AddProp(oTHIS.oHost,"oBuilder",CREATEOBJECT("Custom"))
oTHIS.oHost.oBuilder=CREATEOBJECT("Custom")
oTHIS.AddProp(oTHIS.oHost.oBuilder,"cLastBuilderObjName","")
oTHIS.RunScript("SetSelectedObject")
oTHIS.AddProp(oTHIS.oHost.oBuilder,"lSource",TYPE("oTHIS.oSource")=="O" AND NOT ISNULL(oTHIS.oSource))
IF oTHIS.oHost.oBuilder.lSource
	oTHIS.oHost.oBuilder.cLastBuilderObjName=oTHIS.oSource.Name
ENDIF

FUNCTION OnActivate
oTHIS.RunScript("Refresh")
IF oTHIS.oHost.oBuilder.lSource=(TYPE("oTHIS.oSource")=="O" AND NOT ISNULL(oTHIS.oSource))
	IF oTHIS.oHost.oBuilder.lSource AND oTHIS.oHost.oBuilder.cLastBuilderObjName==oTHIS.oSource.Name
		oTHIS.RunScript("RefreshData")
	ELSE
		IF NOT EMPTY(oTHIS.oHost.oBuilder.cLastBuilderObjName)
			oTHIS.Refresh2
		ENDIF
	ENDIF
ELSE
	oTHIS.Refresh2
ENDIF
ENDFUNC

FUNCTION Refresh
oTHIS.RunScript("SetSelectedObject")
ENDFUNC

FUNCTION SetSelectedObject
oTHIS.oSource=.NULL.
DIMENSION paSelObj[1]
pnSelObj=ASELOBJ(paSelObj)
IF pnSelObj=0
	pnSelObj=ASELOBJ(paSelObj,1)
	oTHIS.oSource=paSelObj[1]
ELSE
	IF pnSelObj=1
		oTHIS.oSource=paSelObj[1]
	ENDIF
ENDIF
ENDFUNC

FUNCTION GenBuilder
DO (oTHIS.cFilePath+"BldrWeb.prg")
ENDFUNC

FUNCTION OpenBuilderBTable
oTHIS.OpenTable(oTHIS.cFilePath+"BuilderB","BuilderB",,"NOT DELETED()")
ENDFUNC

</SCRIPT>

builderb.htm - 源码说明

本页面展示了「MSComm控件资料,Visual Basic 6.0(以下简称VB) 是一种功能强大、简单易学的程序设计语言。它不但保留了原先Basic语言的全部功能」中的 builderb.htm 源码文件，采用 HTM 编程语言编写，共 65 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与MSComm相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?