标签: msgbox

长话短说:我正在尝试编写一个将IE历史记录转储到文本文件的应用程序.因为我很懒,所以我去寻找一个预先存在的库,并发现这个美丽的项目来构建:http://www.freevbcode.com/ShowCode.asp？ID = 6702 .只是,我被困了......

我终于得到了程序来转储历史记录,但只有在我放置Module1.vb的MsgBox()第169行时它才有效.我试过放一个,但那不起作用.那里必须有一个消息框,或者只列出今天的历史记录.Thread.Sleep()

我的猜测,因为这是在谈论wininet.dll,这是一个并发的事情. Thread.Sleep()(对于For ... Next循环)停止程序监听; 没有什么能让它在分配值之前退出循环,但是MsgBox()恰到好处.除了MsgBox()之外还有什么东西会产生相同的效果吗？我不想三十次打OK以使程序正常工作.

这是我的分支/版本/衍生作品:http://profnano.org/andy/misc/img/HistList.zip ; 这是一个VS.NET2003项目.

我做了一些搜索,但没有找到这个问题,抱歉.

在一个vb6循环中,我有一个msgbox显示.有没有办法进入调试模式(如使用F8)？我需要这个来改变msgbox的条件.

而不是,我无法重新启动项目因为那样我将丢失更改和阵列所花费的时间(几个小时).

TIA.

我想知道是否有人可以帮助我将下面变成一个msg框.基本上我希望它首先检查下面的任何一个范围是否说CHECK,如果他们这样做,msgbox会出现解释哪个规则被破坏了.我曾试图创建变量,但不确定如何在msgbox中实现它.

Sub ErrorMsgBox()

Dim Error1 As String
    If Range("DaisyFreshRule").Value = "CHECK" Then
    Error1 = "Daisy Fresh Rule"
Else
End If

Dim Error2 As String
    If Range("MigrationRule").Value = "CHECK" Then
    Error2 = "Migration Rule"
Else
End If

Dim Error3 As String
    If Range("ServiceCreditRule").Value = "CHECK" Then
    Error3 = "Service Credit Rule"
Else
End If

End Sub

Sub prelim()
    MsgboX "Hello World"
End Sub


Sub Main()
    Call prelim
End Sub

在上面的代码Sub prelim无法编辑.我想运行msgbox Sub prelim但运行时我Sub Main不希望弹出消息框.怎么做？

我很久以来一直在使用vb.net,但从未遇到过这个问题.由于某种原因,Intellisense没有检测到MsgBox().当我将鼠标悬停在突出显示的红线上时,它表示"'MsgBox'未被声明.由于其保护级别,它可能无法访问",并且在可能的修复中它尝试创建名为MsgBox()的新函数.以下是代码:

Imports System
Imports System.Data.SqlClient
Imports System.Runtime.InteropServices
Imports System.Web.Configuration
Imports Microsoft.Office.Interop.Outlook

Public Class ConferenceRooms
    Inherits System.Web.UI.Page

    Dim SQLConnection As New 
SqlConnection(ConfigurationManager.ConnectionStrings("MyDB").ConnectionString)
    Dim SQLcommand As New SqlCommand
    Dim SQLAdapter As SqlDataAdapter
    Dim SQLDataTable As DataTable

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    'MsgBox(LBTest.Attributes("title"))
    'Dim lb As Label = CType(Me.Controls("HR Conference Room"), Label)
     If Not IsPostBack Then
        Dim Query1 As String
        Query1 = "Select Location_ID from LCSConference_Locations where vacant = 1"
        RunQuery(Query1)
        Dim OrganizerEmail As String = …

我有这样的脚本:

rp_1st_name = 1000
rp_last_name = 2000
rp_1st_val = 5555
rp_last_val = 6666
fdh = 200
dif = (rp_1st_val - rp_last_val) - fdh
teor = rp_1st_val - rp_last_val


m1='wysokosc reperu poczatkowego:',rp_1st_val,'mm \n'
m2='wysokosc reperu koncowego:',rp_last_val, 'mm \n'
m3='przwyzszenie na ciagu: \n'
m4='teoretyczne =',teor,'mm \n'
m5='obliczone = ',fdh,'mm \n'
m6='fdh =',dif,'mm \n'

from easygui import *
msgbox((m1, m2, m3, m4, m5, m6),"SUMMARY", ok_button="Exit")