白话魔法师

Text1.Text = DateDiff("d", DateSerial(1980, 12, 1), DateAdd("m", 1, DateSerial(1980, 12, 1)))

做法：1、取得原始的整个记录集rs1，并对其设置分页大小。2、创建一个新记录集rs2,把rs1上相应页面上的记录复制到rs2上。3、在表格上显示rs2，这样就是一个页面的记录集。'20130504 白话魔法师Dim cn As New ADODB.ConnectionDim rs1 As New ADODB.Recor

除了access可以从excel直接导入（有点不符合本人观点）外，可以用VB来操作。两个注意点：1、先查询记录在access是否存在，存在了就不用添加。2、打开时，用键集游标adOpenKeyset，不然那个查询的记录集的个数是-1，为判断是否存在记录造成困惑。Private Sub Command1_Click() Dim cn As New A

对一个图片进行剪切有三种方法：一、PictureClip二、Object.PaintPicture三、BitBlk  API的利用。

1、stream只是一个媒介，它在数据库字段与实际的图片间充当一个搬运工作用。      当读出时，图片字段写入stream中，，然后stream导出成一个实际图片       当写入时，实际图片装入stream中，，然后字段再从steam中读取      注意：这里写和读，是字段对stream的操作。从数据库中取出数据，相当于字段先写到stream中。

Option ExplicitDeclare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As LongDeclare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y

上面显示的三个尺寸： 图片框宽度，图片框内部宽度（不含边框），还有一个特殊的图片框内图片的宽度。发现一个问题：  图片尺寸大于图片框，但是，，图片去没有占满图片框，这是什么原因呢？水平反转一下图片，可以看到这个问题将困惑我们：图片明显放大了，原因就出在上面所说的尺寸问题上。百度N久没有结果。一次一次的查MSDN，终于找到一个东西：

Private Sub Form_Load() Form1.KeyPreview = True '控件前拦截按键激活 Text1.CausesValidation = True '激活使之可以引发验证事件End SubPrivate Sub Command1_Click() Text2.SetFocus '转移焦点到文本2End SubPrivate Sub

比如上面引用其中的常时外面会有括号：Private Const GCL_HCUSOR=(-12)为什么这里要加一个括号呢？说法1：规范性写法说法2：避免负号与减号混淆仔细一样也是，常量与C++中一样，别人无法来识别Define有时的错误。于是就用一个括号避免产生不必要的混淆。所以上面两种说法，目的都是一个，防止产生负号与减号的混淆问题。

Option ExplicitDim oldx As Double, oldy As DoubleDim tx As Double, ty As DoubleDim flgPress As BooleanPrivate Sub Command1_Click() Dim a As Integer Text1.Text = Hex("44")End SubPrivate

建立菜单如下文件...............变化  （不可见）............................................显示...............退出下面通过弹出“变化”菜单，触发"显示"事件，使得上一级菜单”变化“可以显示出来Private Sub Form_MouseUp(Button As Integer, Shift

Private Sub Form_Paint() Me.PaintPicture Me.Picture, 0, 0, Form1.Width, Form1.HeightEnd SubPrivate Sub Form_Resize() Me.PaintPicture Me.Picture, 0, 0, Form1.Width, Form1.HeightEnd Sub

XML文件如下:      1   自由飞翔   2007-12-7     2   自由   2007-12-7    Dim XMLDoc As DOMDocument Dim root As IXMLDOMNode Dim xlst As IXMLDOMNodeList, xlst1 As IXMLD

界面固定后，picture不能显示全部图片，怎么办？两个方法：1、在picture中再加入一个image,调整大小与picture一样，将image的stretch的属性设置为真.      这样图片在image的强制下，正好与picture一样大。2、同样在picture中加入image，但把stretch设置为假。即原样图。移动image可以在picture中看到原样。