linux sh脚本编写奇刃

发布时间：2020-05-03 来源：脚本之家 点击：

其原理就是当您设定一个控制项的TabIndex为0时，原来TabIndex为0的控制项，TabIndex就变成了1、而1的变成2...依序 1改变只要在Windows桌面设置程序中，选择一个Windows自带的图案，或者选择一个自己制作的位图文件并选定“平铺”选项，系统就会将你选择的图案或位图有规则地从左到右、从上到下铺满整个屏幕

下面是具体的代码，我将在代码中穿插作些必要的解释：

OptionExplicit

'调用浏览器的API

PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong

DimSortAsString'申明选择类别

DimaddressAsString'申明网址

Dimaddresslink'申明网址链接

DimAllLinesAsNewCollection'内存中的行数据库(你可以看得出来，模仿了"日积月累"的代码来实现对文档文档的读取和显示)

DimCurrentLineAsLong'当前行集合索引

'链接网址声明

PrivateSubLink()

address=ShellExecute(0&,vbNullString,address,vbNullString,vbNullString,vbNormalFocus)

EndSub

'Form_Load事件

PrivateSubForm_Load()

Data1.DatabaseName=App.Path "\address.mdb"

'定位库文件(虽然在属性中已经绑定了数据库，为使程序能在别的机器上正常运行，这行是有必要的)

Data1.RecordSource="net"'字段

Data1.Visible=False'data控件不可见

DimnextLineAsString'从文件中读出的每一行

DimInFileAsInteger'文件的描述符

InFile=FreeFile

OpenApp.Path "\homepage.txt"ForInputAsInFile'打开文件

WhileNotEOF(InFile)

LineInput#InFile,nextLine

AllLines.AddnextLine

Wend

CloseInFile

'将所有行集合按顺序添加到列表框

DimiAsInteger

Fori=0ToAllLines.Count-1

GetNextLine

Nexti

EndSub

'单击列表框

PrivateSubList1_Click()

DimIndAsInteger

Ind=List1.ListIndex

IfInd

Data1.Recordset.AbsolutePosition=Ind

Else

Data1.Recordset.Move(Ind)

EndIf

address=Label1.Caption

EndSub

'双击列表框

PrivateSubList1_dblClick()

Link

EndSub

'提取当前行

PublicSubGetCurrentLine()

IfAllLines.Count>0Then

List1.AddItemAllLines.Item(CurrentLine)

EndIf

EndSub

'提取下一行

PrivateSubGetNextLine()

CurrentLine=CurrentLine 1

IfAllLines.Count

CurrentLine=1

EndIf

GetCurrentLine

EndSub

至此，程序已经可以达成我们的目的了

//队列中元素数量Windows98系统的许多软件中都包含一个windows风格的about窗口，它向用户反映了当前系统的一些基本信息，其中显示有关windows及其应用软件的版本、版权和系统的工作状态等信息

首冲礼包

(3)取得函数返回值的调用：

MyLng=SetWindowPos(Form1.hWnd,-2,0,0,0,3)

此时需要加上括号，而且我们必须事先定义一个变量(变量的类型与函数返回值类型相同)来存储API函数的返回值。