医院 米老师 VB总结
昨天下午我和小胖被米老师传唤到市医院去，米老师想听听他周六上的课对我的影响有多大，我回答的基本内容和《10年 VB 1》里面的内容差不多，但米老师感觉很空洞，感觉我在泛泛而谈，其实我也有感觉。
为了将米老师说的总结方法应用于实践，我这两天敲代码发现MsgBox，InputBox，Print的用法差不多，然后就将其总结如下：
MsgBox(prompt[, buttons] [, title] [, helpfile, context])，其中Prompt是必需得字符串表达式，作为显示在对话框中的消息。Button是可选的数值表达式，显示指定按钮的数目和形式，缺省值为0。Title标题栏中的显示的字符串表达式
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
prompt同上，title同上，default显示在文本框中的字符串表达式，如省略，则文本框为空。Xpos，Ypos可选的数值表达式，指定对话框的左边与屏幕左边的水平距离，对话框的上边与屏幕上边的距离。
object.Print [outputlist] 在Immediate窗口中显示文本。object是必需的对象表达式，其值为“应用于”列表中的对象。 outputlist可选的要打印的表达式，如省略，则打印一行空白行。
三者我只看到形式和功能上的相似，并没有深究他们的根源。也是因为自己看的还不够深入吧，不能达到米老师的效果。米老师让用一句话概括我的收获，我说：“注意总结，总结就是联想和对比。”他把头失望的扭过去，说：“永远不要说就是，说一次错一次。当听到别人说就是时，我就知道这个人太绝对了。总结不仅有联想和对比，还有包括等。只是联想和对比我们比较常见。现在的大学学科都划重点，其实重点是什么，就是人们经常见到和用到的东西，这样一划就把知识都孤立了，学习之中根本没有什么重点，我们看问题要全面，不要孤立地看”说胖子时提到了《西游记》，知识是可大可小的，我们要达到的境界是让知识可大可小，就程序设计而言小到就“程序设计”四个字，大到说几天也说不完。跟孙悟空的金箍棒似的，大小自如。
相关文档：
一开始 以为VB的线程 不是像网上人说的那么脆弱。。。哎 现在领略到了。。。VPrivate Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Pri ......
VB 字节数组和字符串的转换问题 (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
一、 前言
数据类型转换在编程中经常用到，VB6提供了一整套类型转换的函数。但是，在进行类型转换时，有时候仅仅依靠VB提供的函数是不能达到自己的目的的。因此，需要考虑用其他的方法来完成数据类型转换。本文� ......
Option Explicit
'==================================================
' 函数: ReturnSM
'
' 功能: 返回字符串中没个字符的拼音声母第一个字母
'
' 注意: 该函数只能处理3755个常用汉字(B0 - D7)
' 若超出函数的范围将返回常数 ERR_RESULT$
'
' 入口: Str 待处理的字符串
'
Public Function ReturnSM$(ByVal S ......
Asc 函数
返回一个 Integer，代表字符串中首字母的字符代码。
语法:
Asc(string)
必要的 string 参数可以是任何有效的字符串表达式。如果 string 中没有包含任何字符，则会产生运行时错误。
说明:在非 DBCS 系统下，返回值范围为 0 – 255 。在 DBCS 系统下，则为 -32768 &ndas ......
全面控制 Excel
首先创建 Excel 对象，使用ComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) 显示当前窗口：
ExcelID.Visible := True;
2) 更改 Excel 标题栏：
ExcelID.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelID.WorkBooks.Add;
4) 打开已存在� ......
