vb直接运行与单步运行的一个不同结果的问题?

Question

我写的一个小程序.在直接运行是程序中有的代码过了但没有去响应它的功能.但是单步运行确能够得到相应的功能.请问各位高手是什么原因.??

Answer 1

我也遇到过同样的问题，如果有Timer控件，那么可能是你的Timer问题，因为你单步执行肯定比你直接运行时间长

Answer 2

我的代码那部分代码是这样的:
Private Sub CmdCheck_Click()
  Dim SearchPath As String, FindStr As String
  Dim FileSize As Long
  Dim NumFiles As Integer, NumDirs As Integer
  Dim iNull As Integer, lpIDList As Long, lResult As Long
  Dim sPath As String, udtBI As BrowseInfo
  With udtBI
    'ﾉ靹ﾃ莟ﾀﾀｴｰｿﾚ
    .hWndOwner = Me.hWnd
    'ｷｵｻﾘﾑ｡ﾖﾐｵﾄﾄｿﾂｼ
    .ulFlags = BIF_RETURNONLYFSDIRS
    .pIDLRoot = 0&  End With
 
  'ｵｯﾀﾀｴｰｿﾚ
  lpIDList = SHBrowseForFolder(udtBI)   'Displays a dialog box that enables the user to select a Shell folder
  If lpIDList Then
    sPath = String$(MAX_PATH, 0)
    'ｻ｡ﾂｷｾｶ
    SHGetPathFromIDList lpIDList, sPath
    'ﾊﾍｷﾅﾄﾚｴ・    CoTaskMemFree lpIDList
    iNull = InStr(sPath, vbNullChar)
    If iNull Then
      sPath = Left$(sPath, iNull - 1)
    End If
  End If
  Screen.MousePointer = vbHourglass
  'List1.Clear
  SearchPath = sPath 'ﾑ｡ﾖﾐｵﾄﾄｿﾂｼﾎｪﾋﾑﾋﾄﾆｼﾂｷｾｶ
  FindStr = "*.tif" 'ﾋﾑﾋﾐﾀ獎ﾍｵﾄﾎﾄｼ(ｴﾋｴｦｿﾉﾁ櫤ｨﾒ・
  ReDim filenames(0) As String
  PicNum = 0
  picnum1 = 0
  PicAccount = 0
  FileSize = FindFilesAPI(SearchPath, FindStr, NumFiles, NumDirs)
  
  Screen.MousePointer = vbDefault
  TxtPicture.FontSize = 13
  ImagN1.FileName = filenames(0)
  TxtPicture.Text = Right(filenames(0), 35)
'***********************************
  ImagN1.SetViewPos 3000, 1881   ***
'*********************************** 
 Text1(0).SetFocus
    
End Sub
直接实行CHECK按钮不能完成ImagN1.SetViewPos 3000, 1881这句的功能.
只有单步实行才能产生这句话的功能. 请各位高手给点见解. 我再次谢过了

Answer 3

没有人能来讨论一下这个话题吗? ImagN1.SetViewPos 3000, 1881  这一句我只能用按回车等事件或单步才能促使它实现功能啊.请各位高手看看是何原因啊???

Answer 4

自己UP一下.希望大家帮我分析一下这个原因.小弟对VB了解不深.不知道是什么原因.各位大侠帮帮忙啊!!!