VB学习笔记

1、<p></P>：块级元素2、<h1>标题1</h1>标题：从h1向后一次减小字体3、<br />：换行，加几个换几行4、<b>元素</b>：内部的字体粗体显示5、布局元素<div></div>是块级元素独占一行<div>这是一个布局元素</div>6、<span></span>是内敛的，不换行<span>这是第一个span元素</span><span>这是第二个span元素</span>7、无序列表：<ul type="circle"(列表项符号更改)><li>第一个无序列表</li><li>第二个无序列表</li><li>第三个无序列表</li><li>第四个无序列表</li></ul>8、有序列表<ol type="a"><li>有序列表的定义</li><li>第二个有序列表</li><li>第三个有序列表</li><li>第四个有序列表</li><li>第五个有序列表</li></ol>9、列表元素：<dl>定义列表，<dt>定义列表项标题，<dd>定义列表项<dl><dt>定义列表标题</dt><dd>定义第一个列表项</dd><dd>定义第二个列表项</dd><dd>定义第三个列表项</dd><dd>定义第四个列表项</dd></dl>10、<table>代表表格</table><tr>代表表格中的一行</tr><td>代表表格中的一列</td>'tr'与'td'交成一个单元格<table>...</table>之间有多少个<tr>，就有多少行<tr>...</tr>之间有多少个<td>，就有多少列<td></td>定义正常的单元格10、设置单元格的宽度和高度，并横向合并两个单元格<table border="1" cellpadding="6" cellspacing="8"><tr><td width="100" height="40">一个标准单元格</td><td colspan="2">一个标准单元格一个标准单元格</td></tr><tr><td>一个标准单元格</td><td>一个标准单元格</td><td>一个标准单元格</td></tr></table>11、纵向合并单元格，并设置单元格的背景颜色和边框颜色<table border="1" cellpadding="6" cellspacing="8"><tr><td width="100" height="40">一个标准单元格</td><td>一个标准单元格</td><td rowspan="2">一个标准单元格</td></tr><tr><td>一个标准单元格</td><td bgcolor="#009933" bordercolor="#FF0000">一个标准单元格一个标准单元格</td></tr></table>12、表现的标签（控制位置的标签）center>居中对齐</center><hr size="6" noshade="noshade"/><pre> 大家好，我叫胡延福！</pre><b>b元素</b><strong>strong元素</strong><br /><i>I元素</i><em>em元素</em><u>这是加下划线的标志</u><big>使字体变大</big><small>使字体变小</small><br /><font size="2">字体大小</font><br /><font color="#FF0000">红色</font><font color="#00FF00">绿色</font>^上标正常显示_下标<br /><a href="SDC11302.JPG" target="_blank" title="胡延福">胡延福<img src="SDC11302.JPG"border="0"/></a>&lt; 小于号<br />&gt;大于号<br />&amp;和号<br />&quot;双引号<br />13、表单元素<form action="ac.asp" method="get" name="form1"><label for="name_A">姓名：</label><input type="text" size="20" /><br /> <label for="zhiwu">职务：</label><input type="text" size="20" /><br /><input type="submit" value="提交"/><input type="submit" value="重置"/>14、定义(web)CSS引用<link href="Untitled-2.css" type="text/css" rel="stylesheet" rev="stylesheet" /> 15、样式定义的优先级内嵌>内部>外部<p style="color:#FF0000">我叫胡延福</p><style><!--p{color:#CCFF00}--></style>p{width:300px;height:200px;color:#00FF33;}16、p、id、class类选择符<div id="testid">该元素以testid这个id这个选择符来定义</div>#testid{color:#00FF33;width:400px;height:500px;<div class="testclass">该元素以testclass来定义选择符</div>.testClass{color:#FF0000;width:790px;height:900px;}16、css中的字体各种属性font-size:10em;font-size:24px;font-style:italic;font-style:normal;font-style:oblique;text-decoration:blink;text-decoration:none;text-decoration:line-through;text-decoration:overline;text-decoration:underline;line-height:24px;vertical-align:middle;17、有关文本的属性文本中空两格的方式有加&nbsp;&nbsp;&nbsp;&nbsp;或在CSS中用text-indent:2em;文本的对齐方式text-align:center;text-align:left;text-align:right;18、布局元素用display属性可以在span和div属性间相互专属（在块级元素和内嵌元素间转换。

关于VB对AutoCAD二次开发学习笔记□By OYLS基于VB对AutoCAD的二次开发，主要是通过运用VB编程对AutoCAD软件中的基本绘图操作进行控制，了解AutoCAD软件中的常用命令。

在编程过程中我们要借助AutoCAD软件中的“帮助文件”，即“AutoCAD开发人员帮助”文档。

一、获取VB对AutoCAD的控制权：先定义变量acadApp,acadDoc:Public acadApp As AcadApplicationPublic acadDoc As AcadDocumentFunction boot_CAD() As BooleanOn Error Resume NextSet acadApp = GetObject(, "AutoCAD.Application")If Err ThenErr.ClearSet acadApp = CreateObject("AutoCAD.Application")If Err ThenMsgBox "您没有安装AutoCAD ，或安装版本错误！", vbOKOnly + vbInformation, "CAD简易绘图系统"boot_CAD = FalseBtOK = FalseExit FunctionEnd IfEnd IfSet acadDoc = acadApp.ActiveDocumentacadApp.Visible = Trueboot_CAD = TrueEnd Function需要说明的是，我们只有先对CAD获取了控制权以后才能有效地运用VB编程方式进行CAD的基本绘图操作。

不然，以后的各种对CAD的操作将无法得以实现。

二、基本绘图思路：先了解所绘对象的基本属性，可以说，也正是由于对象的各种属性才构成了一个特性为一而标准的实体。

对象的属性特点我们可以事先通过CAD帮助文件查找得出。

Managed directx for vb2005学习笔记（一）要使用Managed directx，需要先安装directxsdk august 2006。

其安装过程与其它程序没什么不同，所以在此就不多说了。

一、添加对Managed directx的引用。

新建一个窗体工程，打开“项目”菜单，单击添加引用。

，在.net选项卡下，找到microsoft.directx，以及microsoft.directx.direct3d 两项，选择 1.0.2902.0版本，添加引用。

如果要添加对microsoft.directx.direct3dx的引用，则要选择 1.0.2911.0版本，否则在绘制纹理时会出现错误。

然后在任何可能使用Managed directx的模块开头添加如下代码：Imports Microsoft.DirectXImports Microsoft.DirectX.Direct3D这样做的目的，是为了可以更方便的使用Managed directx中的对象组件。

二、创建一个设备device要使用Managed directx，创建device 是基础，一个device可以理解为你电脑上的一个显示设备。

1、首先看device的一个构造函数：Public Sub New( _ByVal adapter As Integer, _ByVal deviceType As DeviceType, _ByVal renderWindowHandle As IntPtr, _ByVal behaviorFlags As CreateFlags, _ByVal presentationParameters() As PresentParameters _)参数：Adapter 指定了你要用的视频卡的序号，当今电脑上可能不止一块视频卡，其可能的序号为0到视频卡总数-1，如果你的电脑只有一台显示器，或者你只想在主显示器上显示图形，酒可以采用默认序号（0）。

《计算机辅助生物学教学》学习笔记1.计算机辅助教育（CBE）：---包括CAI、CMI为了提高教育质量和效率，利用计算机技术，按照科学的方法解决教育过程中的问题，而形成的一种新的教育技术。

2.计算机辅助教学（CAI）:教师为了提高教学效果和效率，利用以计算机为中心的丰富的教学资源，改进传统教学，或为学生提供一个学习环境，使学生通过与计算机的交互对话进行学习的一种教学形式。

其特征：（1）计算机辅助教学的对象是学生，它为学生提供各种教学内容，给予学生直接的帮助。

（2）计算机辅助教学必须提供某学科的知识，并使学生通过计算机获得新的知识。

（3）计算机与学生之间是相互作用的关系，计算机与学生之间进行“对话”，计算机要求学生做出积极的反应，并根据反应做出判断和决策。

其特点：（1）自定步调（2）难度适宜（3）人机交流（4）适时反馈（5）诊断补救（6）追踪效果（7）保存资料（8）推广经验（9）效果独特（10）事先规划3.计算机管理教学（CMI）:利用计算机管理、指导和研究教学的自动化教学管理技术。

其特征：（1）计算机管理教学过程中，所存储和提供的是学生档案和学习情况的信息，不是学科知识。

（2）计算机管理教学的对象是教师而不是学生，其主要目的是帮助教师对教学进行决策和管理。

（3）教师与计算机的关系，不是回答提问，做出反应，而是主动分析、检索和提取资料。

4.网络计算机辅助教学（NCAI）:指通过计算机网络、教师、学生对教学内容进行讲授、学习、练习、评测和辅导答疑的教学过程。

其特点：P2595.智能计算机辅助教学（ICAI）:以认知能力为理论基础，将人工智能技术应用于计算辅助教学中，以支持和实现教学过程。

其组成、作用特点：P261 6.教学过程：是教师根据教学目的、任务和学生身心发展的特点，通过指导学生有目的、有计划地掌握系统的文化科学基础知识和基本技能，发展学生智力和体力，形成科学世界观及培养道德品质，发展个性的过程。

学习笔记（循环语句）循环语句中的循环语句分为：Do While Loop、For Next、For Each三种。

Do While LoopDo While Loop有三种形式，这系列的循环是⽤于预先不知道循环的上限时使⽤的。

在使⽤Do While Loop语句时要注意，因为它们是不确定循环次数，所以要⼩⼼不要造成死循环。

Do While Loop举例Public Class TestAPublic Sub New()Dim i As Int32i = 1Do While i < 100 @#先判断后执⾏i += 1Exit DoLoopi = 1Doi += 1Exit DoLoop While i < 100 @#先执⾏后判断While i < 100 @#Do While i < 100i += 1Exit WhileEnd WhileEnd SubEnd ClassFor Next和Do While Loop不⼀样，For Next是界限循环。

For 语句指定循环控制变量、下限、上限和可选的步长值。

For Next举例Public Class TestAPublic Sub New()Dim i As Int32For i = 0 To 100 Step 2Next iEnd SubEnd ClassFor EachFor Each也是不定量循环， For Each是对于集合中的每个元素进⾏遍历。

如果你需要对⼀个对象集合进⾏遍历，那就应该使⽤For Each。

For Each举例Public Class TestAPublic Sub New()Dim Found As Boolean = FalseDim MyCollection As New CollectionFor Each MyObject As Object In MyCollectionIf MyObject.Text = "Hello" ThenFound = TrueExit ForEnd IfNextEnd SubEnd Class。

“信任对VBA工程对象模型的访问”、“宏的安全等级”设置代码笔记2017.11.10最近，因为其他设置需求，对“信任对VBA工程对象模型的访问”、“宏的安全等级”进行了研究学习，对前人提供的经验及当下版本Excel的差异进行总结，把心得记下以供参考，在编写过程中，多谢正错误，在此点名致谢。

如有不当之处敬请指正。

PS:原文及附件的地址/thread-1378529-1-1.html笔记目录一、Windows、Office版本号、位数二、“宏的安全等级”设置三、“信任对VBA工程对象模型的访问”设置四、工程修复为默认一、Windows、Office版本号、位数平时，有可能根据不同Windows的位数注册不同的DLL文件或OCX文件，所有有必要对Windows的位数进行获取。

判断系统的位数需要通过GetNativeSystemInfo获取信息，从而获得ProcessorArchitecture值，假如是6（PROCESSOR_ARCHITECTURE_IA64）或者9（PROCESSOR_ARCHITECTURE_AMD64），那么Windows系统就是64位。

参考代码如下：（返回的是位数的数值）'--------------------------------------------------------------------------'****Windows位数判断***开始Private Type SYSTEM_INFOwProcessorArchitecture As IntegerwReserved As IntegerdwPageSize As LonglpMinimumApplicationAddress As LonglpMaximumApplicationAddress As LongdwActiveProcessorMask As LongdwNumberOrfProcessors As LongdwProcessorType As LongdwAllocationGranularity As LongwProcessorLevel As IntegerwProcessorRevision As IntegerEnd TypePrivate Declare Sub GetNativeSystemInfo Lib "kernel32" (lpSystemInfo As SYSTEM_INFO) Private Declare Function GetCurrentProcess Lib "kernel32" () As LongPrivate Function Windows_Digit() As Integer'Windows位数Const PROCESSOR_ARCHITECTURE_AMD64 As Integer = 9Const PROCESSOR_ARCHITECTURE_IA64 As Integer = 6Dim windowsInfo As SYSTEM_INFOGetNativeSystemInfowindowsInfoWindows_Digit = (1 - (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64 Orsi.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_IA64) * 1) * 32End Function'****Windows位数判断***结束'--------------------------------------------------------------------------由于Windows版本太多，在VBA编程方面用得也少，所以暂没做具体研究。

高一化学必修一知识点笔记（经典版）编制人：__________________审核人：__________________审批人：__________________编制单位：__________________编制时间：____年____月____日序言下载提示：该文档是本店铺精心编制而成的，希望大家下载后，能够帮助大家解决实际问题。

文档下载后可定制修改，请根据实际需要进行调整和使用，谢谢!并且，本店铺为大家提供各种类型的经典范文，如演讲稿、总结报告、合同协议、方案大全、工作计划、学习计划、条据书信、致辞讲话、教学资料、作文大全、其他范文等等，想了解不同范文格式和写法，敬请关注!Download tips: This document is carefully compiled by this editor. I hope that after you download it, it can help you solve practical problems. The document can be customized and modified after downloading, please adjust and use it according to actual needs, thank you!In addition, this shop provides you with various types of classic sample essays, such as speech drafts, summary reports, contract agreements, project plans, work plans, study plans, letter letters, speeches, teaching materials, essays, other sample essays, etc. Want to know the format and writing of different sample essays, so stay tuned!高一化学必修一知识点笔记说到化学,很多同学都会说难很难,高中化学是最难的一部分,但我们一定要把知识点给吃透。

我的+oracle增删改查学习笔记（本源码在2008下测试通过）学习有一段时间了，之前一直学习VB6.0。

过度到.NET 后发现与之前所学习的有了相当大的变化。

于是将编程经常用到的增删改查代码提炼出来，备后日使用及各位一起学习。

各段代码均可以独立运行，读者可以活学活用，设置公共变量剔除冗余代码。

可以将连接代码写成函数，随时调用，不用每次都加。

主要内容为：添加数据库部件引用、设置连接字符串、设置界面、查询并将结果放入表中、添加按钮代码、修改操作、删除操作、调用无参数的存储过程、调用有参数的存储过程、最终所有代码。

一、首先，要引用System.Data.OracleClient，我的电脑中已经安装Oracle9i，在COM选项卡下可以找到该项。

如果不添加该引用，程序将无法运行。

二、连接字符串（可以添加一个OracleConnection对象，针对您的计算机进行设置，然后复制ConnectionString代码，记得复制完删除它；也可以复制下面的代码，然后更改用户名及密码）'对OracleConnection对象的ConnectionString属性赋值，指定连接位置objconn.ConnectionString = "Data Source=myzsyy;Persist Security Info=True;User ID=bzk22;Password=zxcvbn;Unicode=True"三、界面如下四、查询并将结果放入表中，代码如下：我将该段代码放置在了Form_Load过程中，您也可以把该代码放置在按钮或其他过程中。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim strSql As StringDim strConn As StringDim objDA As OracleClient.OracleDataAdapterDim objds As New Data.DataSetstrConn = "Data Source=myzsyy;Persist Security Info=True;UserID=bzk22;Password=zxcvbn;Unicode=True"strSql = "select * from TEST "objDA = New OracleClient.OracleDataAdapter(strSql, strConn)objDA.Fill(objds, "TEST")DataGridView1.DataSource = objds.Tables("TEST")End Sub五、添加按钮代码如下：添加后表格中数据未进行更新，加入Call Form1_Load(sender, e)代码实现即时更新。

VBA学习笔记（⼀）：⾃动添加代码VBA修改注册表⼀、以下代码是通过Auto_Open事件，⾃动向ThisWorkbook⾥添加VBA代码：Private Sub Auto_Open()Call AddCodeToThisWorkbookMsgBox ("This is Auto_Open Sub !")End SubPrivate Sub AddCodeToThisWorkbook()With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.InsertLines 1, "Private Sub Workbook_open()".InsertLines 2, " MsgBox (""This is Workbook_Open Sub !"")".InsertLines 3, "End Sub"End WithEnd Sub⼆、以下代码是通过VBA修改注册表：Sub ChangeSettings()Dim FsoDim RegKey_User_AcsVm As StringDim RegKey_User_Level As StringDim RegKey_Mach_AcsVm As StringDim RegKey_Mach_Level As StringDim RegVal_User_AcsVm As VariantDim RegVal_User_Level As VariantDim RegVal_Mach_AcsVm As VariantDim RegVal_Mach_Level As VariantDim ExcelVersion As StringOn Error Resume NextExcelVersion = Application.VersionSet Fso = CreateObject("Scripting.FileSystemObject")RegKey_User_AcsVm = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & ExcelVersion & "\Excel\Security\AccessVBOM"RegKey_User_Level = "HKEY_CURRENT_USER\Software\Microsoft\Office\" & ExcelVersion & "\Excel\Security\Level"RegKey_Mach_AcsVm = "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\" & ExcelVersion & "\Excel\Security\AccessVBOM"RegKey_Mach_Level = "HKEY_LOCAL_MACHINE\Software\Microsoft\Office\" & ExcelVersion & "\Excel\Security\Level"Value_User_AcsVm = 1Value_User_Level = 1Value_Mach_AcsVm = 1Value_Mach_Level = 1Call ModReg(RegKey_User_AcsVm, Value_User_AcsVm, "REG_DWORD")Call ModReg(RegKey_User_Level, Value_User_Level, "REG_DWORD")Call ModReg(RegKey_Mach_AcsVm, Value_Mach_AcsVm, "REG_DWORD")Call ModReg(RegKey_Mach_Level, Value_Mach_Level, "REG_DWORD")End SubSub ModReg(RegKey As String, Value As Variant, ValueType As String)Dim oWshellSet oWshell = CreateObject("WScript.Shell")If ValueType = ""ThenoWshell.RegWrite RegKey, ValueElseoWshell.RegWrite RegKey, Value, ValueTypeEnd IfSet oWshell = NothingEnd Sub三、以下函数⽤来判断⼀个⼯作簿中是否存在指定的Sheet名：Function SheetIsExist(WBookName As String,WSheetName As String) As BooleanDim Tmp_WSheet As WorksheetFor Each Tmp_WSheet In Workbooks(WBookName).WorksheetsIf UCase(Tmp_) = UCase(WSheetName) ThenSheetIsExist = TrueExit FunctionEnd IfNext Tmp_WSheetSheetIsExist = FalseEnd Function以下为调⽤SheetIsExist函数的⽰例：Sub Example01()'开始计时begin = Timer'禁⽌刷屏Application.ScreenUpdating = FalseApplication.DisplayAlerts = False'记录当前⽂件名Dim CurFileName As StringCurFileName = Sheets("Sheet1").[A1] If SheetIsExist(CurFileName, "Sheet2") ThenWorksheets("Sheet2").DeleteEnd IfIf SheetIsExist(CurFileName, "Sheet3") ThenWorksheets("Sheet3").DeleteEnd IfApplication.ScreenUpdating = TrueApplication.DisplayAlerts = Trueover = TimerMsgBox ("已运⾏完成！共运⾏" & over - begin & "s")End Sub。

VB 三维图像 3D 游戏编程 DirectX 学习笔记 1DirectX 简介DirectX 是由微软公司创建的多媒体编程接口，可以轻松的在屏幕上绘制三维图形、播放音乐与声音效果，是在 VB 中进行三维游戏制作的得力工具。

目前 DirectX 版本已发展到 DirectX9.0。

在 VB6 中可使用的最高版本为DirectX8。

在 VB6 中要使用 DirectX，需在工程引用对话框中勾选 DirectX 8 for Visual Basic Type Library，对象浏览器显示的库名为：DxVBLibA。

★3D 坐标系统3-D图形应用程序使用两种类型的笛卡尔坐标系统：即左手坐标系统（left-handed）和右手坐标系统（right-handed）。

在这两种坐标系统中，x-轴正方向均指向右边，y-轴正方向也都指向上方。

z-轴的方向可以用左、右手定则来确定，即握起左（或右）手的四指来代表由x-方向旋转到y-方向，则左（或右）手的拇指就指向z-轴的正方向。

如下图：对三维坐标系统中定义的对象，基本的操作包括：平移（translate），旋转（rotate）和缩放（scale）。

也可以将这些基本变换组合起来建立一个变化矩阵。

★3D 图元一个3-D图元就是一些顶点的集合，它们组成了一个三维实体。

Direct3D 中最重要的不是点、不是线，也不是平面，而是三角形。

Direct3D用三角形来组成多边形和三维物体。

使用了材质之后，这个球体的表面看起来会更平滑。

如果再使用Gouraud明暗处理方法，它会更加逼真。

★矩阵与变换Direct3D中使用矩阵（matrices）来定义世界（world）, 视（view）和投影变换（projection transformation）。

矩阵由 D3DMATRIX 结构来定义，是一个4×4 的二维数组。

常用的变换包括：平移（translation），旋转（rotation）和缩放（scaling）。