浅显基础教程
电脑操作教程
电脑怎样拨号上网
怎么做个人网页
怎样做局域网
Word教程(文字处理)
图形图象处理入门
经典进步教程
怎样运用代理服务器
怎么做无盘工作站
Photoshop教程
Dreamweaver3教程
Flash4&5教程
Firework3教程
Frontpage2000教程
Authware教程
Office2000教程
怎么制造动画图片
OICQ&ICQ运用办法

高手学习攻略

硬件晋级技巧
CGI教程
ASP教程

PHP教程

注册表运用技巧
路由器的设置
vwin建造攻略
SQL
最近更新:
VB
相关内容

 问题1:(难度系数:初级)
  我用ADO拜访ACCESS数据库时用AddNew办法往里增加一条纪录,但当输入不符要求的数据时,ado会引发一个反常,这时我应该在反常处理中抛弃当时纪录,重新参加新的记载;可实际上,我发现什么也做不了了,任何操作(如cancleUpdate,update,move,AddNew)都回来过错或引发反常.我能够确认权限和同享都正确,怀疑是ado的缓冲机制有bug,请哪位高手点拨。
  答:在操作记载时应对各种或许呈现的过错做相应的圈套处理。依据过错号代表的意义来改正过错,如:
  on error goto ErrorCode
  rst001.AddNew 或 rst001.Update ....
  …
  exit Sub
  ErrorCode:
  Select case Err.Number
  Case 94
  Msgbox ″Null无效过错″
  Case 461
  MsgBox ″指定的格局与数据格局不匹配″
  Case ErrNumber
  …
  End Select
  问题2(难度系数:初级)
  怎么翻开加密的数据库(access)?
  答:翻开加密的ACCESS选用如下指令:
  Set Db = WS.OpenDatabases (″MyDBFile.mdb″,False,False,″;PWD=暗码″) (记住前面有个分号。)
  问题3(难度系数:中级)
  怎么运用MSCOMM32.OCX发送大于80H的字符,可否给个示例程序?
  答:该接发办法为
  MSComm1.InputMode=comInputModeBinary
  如发一个A0H
  Dim TxData(0) As Byte
  TxData(0)=&HA0
  MSComm1.Output=TxData
  这是接收方寄存器为8位的状况,如为16位,则:
  Dim TxData(1) As Byte
  TxData(0)=&HA0
  TxData(1)=&H0
  MSComm1.Output=TxData
  问题4(难度系数:中级)
  我有一程序,将生成一个数据文件,生成之后要将该文件以附件的办法发到指定的信箱。现在我要在程序上直接供给发送按钮,调用默许的邮件处理程序将附件发送,并附上主题和简略的内容。不知怎么完成?
  答:可运用MAPISESSION、MAPIMESSAGES控件完成调用默许的支撑MAPI的电子邮件如OUTLOOK EXPRESS、EXCHANGE。其间MAPISESSION完成登录、MAPIMESSAGES完成信息操作。
  MAPISession1.signon
  MAPIMessages1.SessionID = MAPISession1.SessionID
  MAPIMessages1.Compose ′创立一封新的音讯
  MAPIMessages1.RecipAddress = ″xxx@aaa.com″
  MAPIMessages1.AddressResolveUI = True
  MAPIMessages1.ResolveName
  MAPIMessages1.MsgSubject = Trim(txtSubject)
  MAPIMessages1.MsgNoteText = Trim(txtText)
  MAPIMessages1.AttachmentPathName = ″c:Detlog.txt″ ′attach file location
  MAPIMessages1.Send′发送
  MAPISession1.SignOff
  详见vb5.0 onlinebook。(由lsh供给答案)
  问题5(难度系数:中级)
  用VB生成EXE文件后,怎么在后面加上参数?这个参数怎样传给VB?(就像:notepad c:vb.txt 相同)
  答:关于运用 Visual Basic 开发并编译为 .exe 文件的运用程序,VB供给了一个Command 目标,该目标回来呈现在指令行中运用程序名之后的任何参数。下面函数演示了怎么获取参数的一切技术细节。
  Function GetCommandLine(Optional MaxArgs)
  ′声明变量。
  Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
  ′查看是否供给了 MaxArgs 参数。
  If IsMissing(MaxArgs) Then MaxArgs = 10
  ′ 使数组的巨细适宜。
  ReDim ArgArray(MaxArgs)
  NumArgs = 0: InArg = False
  ′获得指令行参数。
  CmdLine = Command()
  CmdLnLen = Len(CmdLine)
  ′以一次一个字符的办法取出指令行参数。
  For I = 1 To CmdLnLen
  C = Mid(CmdLine, I, 1) ′检测是否为 space 或 tab。
  If (C <> ″ ″ And C <> vbTab) Then
  ′若既不是 space 键,也不是 tab 键,则检测是否为参数内含之字符。
  If Not InArg Then
  ′新的参数。检测参数是否过多。
  If NumArgs = MaxArgs Then Exit For
  NumArgs = NumArgs + 1
  InArg = True
  End If
  ′将字符加到当时参数中。
  ArgArray(NumArgs) = ArgArray(NumArgs) + C
  Else
  ′找到 space 或 tab。将 InArg 标志设置成 False。
  InArg = False
  End If
  Next I
  ReDim Preserve ArgArray(NumArgs) ′调整数组巨细使其刚好契合参数个数。
  GetCommandLine = ArgArray() ′将数组回来。
  End Function
  问题6:(难度系数:高档)
  我现在编了一个屏幕维护程序,但不能阻拦″ctrl+alt+del″的操作,不知怎么处理?
  答:需求调用API函数″SystemParametersInfo″阻拦″ctrl+alt+del″,″ctrl+esc″,″alt+tab″三组热键。将以下代码参加你的一般模块:
  Option Explicit
  Public Declare Function SystemParametersInfo Lib ″user32″ Alias ″SystemParametersInfoA″ _
  (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByValfuWinIni As Long) As Long
  Public Const SPL_SCREENSAVERRUNNING = 97
  以下参加你的窗体
  Option Explicit
  ′读取窗体时使热键失效
  Private Sub Form_Load()
  SystemParametersInfo SPL_SCREENSAVERRUNNING, True, ByVal 1&, 0
  End Sub
  ′程序退出时使热键有用
  Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  SystemParametersInfo SPL_SCREENSAVERRUNNING, False, ByVal 1&, 0
  End Sub
  牢记:一定要一同运用,不然使热键失效后,只要重新启动Windows热键才会康复。(由HBG供给回答)

用VB完成多文件查找与替换功用
用VB 5.0 规划Browser及FTP程序
用Visual Basic 5.0规划E-mail程序
谈谈WIN API在VB中的运用
在VB中运用Word的“艺术字”东西
vwin :首页 获取Win95特别目录精确途径
配置文件.ini在VB5中的运用
操控结构VB5程序规划
用VB切换三个特别键
用VB5对Windows 95任务栏提示区编程
用API改善ListView显现作用
VB中Grid控件的打印办法
在VB中完成文件上载
用Microsoft Agent 控件与电脑攀谈
用VB5直接操控Excel 97
在Developer/2000中调用VB
在VB顶用API完成多媒体
VB6制造Win98风格的东西栏
VB6六问答
 
 
 
 
 
 
 
收集整理