VB学习笔记2
dw学习笔记
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><sup>上标</sup>正常显示<sub>下标</sub><br /><a href="SDC11302.JPG" target="_blank" title="胡延福">胡延福<img src="SDC11302.JPG"border="0"/></a>< 小于号<br />>大于号<br />&和号<br />"双引号<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、有关文本的属性文本中空两格的方式有加 或在CSS中用text-indent:2em;文本的对齐方式text-align:center;text-align:left;text-align:right;18、布局元素用display属性可以在span和div属性间相互专属（在块级元素和内嵌元素间转换。
关于VB对AutoCAD二次开发学习笔记
关于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帮助文件查找得出。
Manageddirectxforvb学习笔记一
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.教学过程：是教师根据教学目的、任务和学生身心发展的特点，通过指导学生有目的、有计划地掌握系统的文化科学基础知识和基本技能，发展学生智力和体力，形成科学世界观及培养道德品质，发展个性的过程。
VB.Net学习笔记（循环语句）
学习笔记（循环语句）循环语句中的循环语句分为：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工程对象模型的访问”、“宏的安全等级”设置代码笔记
“信任对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编程方面用得也少，所以暂没做具体研究。
VBNET连接Oracle增删改查学习笔记(经典CRUD_含存储过程)
我的+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修改注册表
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。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
与print方法有关的函数
1. tab(n)
tab函数把光标移到由参数n指定的位置，从这个位置开始输出信息
2. spc（n）
在print的输出中，用spc函数可以跳过n个空格
3. 空格函数（space）
格式输出
format（数值表达式，格式字符串）
该函数俺“格式字符串”输出“数值表达式‘的值如果省略”格式字符串“”则format函数的功能与str函数基本相同，。
唯一差别是不留空格。
格式说明字符
# 数字；不在前面或后面补0；
0 数字；在前面或后面补0；
. 小数点
，千位分隔符
% 百分比符号
$ 美元符号
-，+ 负正号
E+,E 指数符号
cls方法
格式：[对象]cls
作用：清楚有print方法现实的文本或图片框中显示的图形，并把光标移到对象的左上角（0.0），这里的“对象”可以是窗体或图片框，如果省略“对象”则清楚当前窗体内现实的内容。
move方法
格式：【对象】move左边距离，[,上边距离【，宽度【，高度】】]
作用：move方法用来移动窗体和控件，并可该变其大小，
textheight和textwidth方法
格式：[对象]textheignt(字符串)
[对象]textwidth(字符串)
作用：textheight返回一个文本字符串的高度值，textwidth返回一个宽度值。
“对象”包括窗
体和图片框，省略对象则用来测试当前窗体的字符串。
输入数据——inputbox函数
inputbox(prompt[,title][,default][,xpos,ypos][helpfile,context]) 点取消是返回空字符串
msgbox函数和msgbox语句
msgbox(msg[,type][,title][,helpfile,context])
type参数取值
0——确定按钮（1）
1——确定，取消按钮（2）
2——终止，重试，忽略按钮（3）
3——是，否，取消按钮（3）
4——是，否（2）
5——重试，取消（2）16
16——显示critical message图标叉号图标
32——显示问号图标
48——叹号图标
64——显示I图标
0——第一个按钮为默认值
256——第二个
512——第三个
768——第四个。