| 共 12 篇文章 |
|
在VB6中绘制矢量图并没有想象中那么困难，其实只要使用一个增强型图元文件（EMF文件）并配合3个API函数就可以实现矢量图的绘制。说明：取得磁盘文件中包含的一个增强型图元文件的图元文件句柄。Path &"/map.emf") <>""Then''判断文件是否存在hwd = GetEnhMetaFile(App.Path &"/map.emf")&... 阅976 转6 评0 公众公开 12-05-08 21:17 |
VB6.0对TXT文本文件的读写删操作。TempFile=FreeFile Open 文件名 For Binary As #TempFile Redim LoadBytes(1 To Lof(TempFile)) As Byte Get #TempFile,,LoadBytes Close TempFile.''调用方法: ''比如要把c:\1.txt 删除其中的第5行内容,并保留源文件总行数(删除的这行插入一空字符串) ''DelLine "C:\1.txt"... 阅12633 转131 评0 公众公开 12-05-08 21:14 |
VSFLEXgrid控件属性、用法大全VSFLEXgrid控件属性、用法大全。''修改后来更改别的一些数据Private Sub Grid_AfterEdit(ByVal Row As Long, ByVal Col As Long)On Error Resume Next''进货数量=包装数量 * 整装数量 + 零装数量 Grid.TextMatrix(Row, Grid.cols - 6) = Grid.TextMatrix(Row, Grid.cols - 9) * Grid.TextMatrix... 阅97 转自qaz204720... 公众公开 12-03-28 13:37 |
Dim strTmp2, strChar, strTmp, strRet As String.strTmp2 = strTmp.Dim strChar As String, strTmp As String, strTmp2 As String, strRet As String.strRet = strRet &IIf(IsNumeric(Mid(strTmp, 3, 1)), Chr(Val("&H" &strTmp2)), "%" &strTmp2)URLenc = URLenc &"%" &Hex((lngAsc A... 阅405 转5 评0 公众公开 12-03-26 15:17 |
GetAttribute("genre")) ''显示属性值 Console.WriteLine(xe.GetAttribute("ISBN"))Dim xnf1 As XmlNodeList = xe.ChildNodesDim xn2 As XmlNodeFor Each xn2 In xnf1Console.WriteLine(xn2.InnerText) ''显示子节点点文本 Next xn2Next xnf. 阅605 转9 评0 公众公开 11-04-19 17:29 |
2.1 查询已知绝对路径的节点（集） objNodeList = objDoc.SelectNodes("Company/Department/Employees/Employee") 或者 objNodeList = objNode.SelectNodes("/Company/Department/Employees/Employee") 以上两种方法可返回一个NodeList对象，如果要返回单个节点可使用SelectSingleNode方法，该方法如果查询到... 阅3460 转10 评0 公众公开 11-04-19 17:29 |
LongNameEnd Function ''ToStringEnd Class ''USStatePublic Class ListBoxSample3Inherits FormPrivate ListBox1 As New ListBox()Private textBox1 As New TextBox() _Shared Sub Main()Application.Name = "ListBox1"ListBox1.ValueMember = "ShortName"End Sub ''NewPrivate Sub InitializeCo... 阅357 转0 评0 公众公开 11-04-18 17:36 |
IWindowsFormsEditorService 接口的VB.NET例子IWindowsFormsEditorService 接口的VB.NET例子。Windows.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)If edSvc Is Nothing ThenReturn NothingEnd If'' Displays a StringInputDialog Form to get a user-adjustable'' string value.Button()Me... 阅307 转1 评0 公众公开 11-03-28 09:33 |
在"服务器"处写上你当要使用的SQL Server服务器，本例中为"ZHANG"a勾选"使用用户输入登录ID和密码的SQL Server验证"，并在"登录ID"和"密码"处填上在你安装SQL Server2000时设置的用户名和密码，本例为"sa"和"111"a勾选"更改默认的数据库为："，在其中选中你... 阅5916 转139 评0 公众公开 10-09-12 20:38 |
