小编Dea*_*nna的帖子

IMP和EQV在VB6中的逻辑功能是什么?有没有人为他们找到真实世界的用途?

And,Or,Xor和Not我明白了.我没有得到的是Imp和Eqv.他们的意思是什么?他们怎么进去的?它们真的有用吗?

vb6 boolean-logic

9
推荐指数
2
解决办法
4231
查看次数

如何读取文件并写入文本文件?

我想打开mis文件,复制所有数据并写入文本文件.

我的错文件.

文件名 - 1.mis

M3;3395;44;0;1;;20090404;094144;8193;3;0;;;;
M3;3397;155;0;2;;20090404;105941;8193;3;0;;;;
M3;3396;160;0;1;;20090404;100825;8193;3;0;;;;
M3;3398;168;0;2;;20090404;110106;8193;3;0;;;;
Run Code Online (Sandbox Code Playgroud)

等......

以上数据应出现在具有相同文件名(1.txt)的文本文件中.

我试过这段代码.

Dim sFileText As String
Dim iFileNo As Integer
iFileNo = FreeFile
Open "C:\Clients\Converter\Clockings.mis" For Input As #iFileNo
Do While Not EOF(iFileNo)
Input #iFileNo, sFileText
Loop
Close #iFileNo

Open "C:\Clients\Converter\2.txt" For Output As #iFileNo
Do While Not EOF(iFileNo)
Write #iFileNo, sFileText
Loop
Close #iFileNo
Run Code Online (Sandbox Code Playgroud)

1.txt中没有保存任何内容.

vb6 file-io

9
推荐指数
1
解决办法
13万
查看次数

最大Err.Raise数?

为什么当我使用Err.Raise 65536的Err.Number实际上将有5而不是65536的价值?

根据Raise定义:Sub Raise(Number As Long, [Source], [Description], [HelpFile], [HelpContext]).该传递参数Long和Err.Number也Long.

那么为什么我不能使用大于65535的值呢?

Private Sub Command1_Click()
Dim a As Long
    On Error GoTo ErrCatch
    For a = 0 To 99999
        Err.Raise a
        DoEvents
    Next a
    Exit Sub
ErrCatch:
    ' this is where Err.Number is evaluated
    Resume Next
End Sub`
Run Code Online (Sandbox Code Playgroud)

vb6 error-handling

9
推荐指数
3
解决办法
4796
查看次数

mvp模式中winforms之间的通信

我正在处理开发我的应用程序的一个大问题.它是C#上实现Model-View-Presenter模式的Winforms基础应用程序,但我是这个方法的新手.我到处搜索,但没有找到我的问题的答案.

我需要知道如何使用这种模式来允许winforms之间的通信,以及演示者如何在不将演示者与表单耦合的情况下显示它们.我已经看到了使用Factory模式的方法,但是不明白如何实现它.

任何帮助或指向正确的方向将不胜感激.

mvp design-patterns communication winforms

9
推荐指数
1
解决办法
3985
查看次数

使用Check函数时原型无效

我是InnoSetup的新手,因为我正在尝试各种安装程序.

我使用Inno Script Studio和内置向导创建了我的第一个脚本.到现在为止还挺好.现在我想让它检测是否安装了.Net 4.5,如果没有安装它.所以,我浏览了整个网络,并且在这里我遇到了这个解决方案,但是当我将代码复制并粘贴到我的脚本中时,我在编译时遇到以下错误.

Compiling [Code] section
Compiler Error!
Line 54: Column 10: Invalid prototype for 'IsDotNetDetected'
Run Code Online (Sandbox Code Playgroud)

我脚本中的第54行就是这个

function IsDotNetDetected(version: string; service: cardinal): boolean;
Run Code Online (Sandbox Code Playgroud)

有谁知道这个错误意味着什么,为什么我会得到它?

这是我的完整脚本:

; Script generated by the Inno Setup Script Wizard.
; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!

#define MyAppName "AVO Log"
#define MyAppVersion "0.1.0.1"
#define MyAppPublisher "NA"
#define MyAppExeName "AVO Log.exe"

[Setup]
; NOTE: The value of AppId uniquely identifies this application.
; Do not use the …
Run Code Online (Sandbox Code Playgroud)

inno-setup

9
推荐指数
1
解决办法
8793
查看次数

仅允许文本框中的数值

我想创建一个只接受数值的TextBox控件.

我怎么能在VB6中这样做?

vb6 textbox numbers

8
推荐指数
2
解决办法
7万
查看次数

代码对齐线?

Aptana Studio 3是否能够显示与开始和结束标记匹配的垂直线,以便您知道标记是否正确对齐?我发现这在Notepad ++中非常有用,并且想知道这是否是Aptana中的一个选项.

谢谢

aptana aptana3

8
推荐指数
1
解决办法
2698
查看次数


在C#中,VB语句短语"Chr(0)"是什么?

什么是Chr(0)C#中等效的VB语句表达式?

谢谢你的帮助.

c# vb6 vb6-migration

8
推荐指数
2
解决办法
1万
查看次数

可与switch()一起使用的自定义结构/类型

我的一个项目有一个值类型/结构,表示视频格式的自定义标识符字符串.在这种情况下,它将包含一个内容类型字符串,但这可能会有所不同.

我已经使用了一个结构体,因此当它传递时它可以是强类型,并对初始字符串值执行一些健全性检查.实际的字符串值可以是任何内容,由外部插件库提供,因此数字enum不适用.

public struct VideoFormat {
    private string contentType;

    public VideoFormat(string contentType) {
        this.contentType = contentType;
    }

    public string ContentType {
        get { return this.contentType; }
    }

    public override string ToString() {
        return this.contentType;
    }

    // various static methods for implicit conversion to/from strings, and comparisons
}
Run Code Online (Sandbox Code Playgroud)

由于有一些非常常见的格式,我将这些格式暴露为具有默认值的静态只读字段.

public static readonly VideoFormat Unknown = new VideoFormat(string.Empty);
public static readonly VideoFormat JPEG = new VideoFormat("image/jpeg");
public static readonly VideoFormat H264 = new VideoFormat("video/h264");
Run Code Online (Sandbox Code Playgroud)

这似乎适用于大多数情况,除了一个开关块,它表示值必须是常量.有没有什么办法可以直接在开关块中使用这种类型和静态值而无需打开内部成员或.ToString()覆盖?

如果没有使用enum数值或普通字符串常量指定的设计时间,是否有更好的整体方法?

c# value-type object-model switch-statement

8
推荐指数
1
解决办法
3438
查看次数