这段代码哪里错了

Question

Open FileName For Input As FileNum
            Do While Not EOF(FileNum)   '读取文件直到文件末
                Line Input #FileNum, buffer(i)
                i = i + 1
            Loop
        Close FileNum
 
    有问题！！

Answer 1

Form1.Left = Mid(buffer(0), 3, Len(buffer(0)))
    Form1.Top = Mid(buffer(1), 3, Len(buffer(1)))   '当前窗体位置
类型不匹配没有死机

Answer 2

TO  asdcsj(asdcsj) :改为这样如何？Dim sbuffer As Variant
…………
…………
…………
sbuffer = Mid(buffer(0), 3, Len(buffer(0)))
Form1.Left = sbuffer
sbuffer = Mid(buffer(1), 3, Len(buffer(1)))
Form1.Top = sbuffer   '当前窗体位置

Answer 3

知道了
文件名的问题，不可以用"Con"做文件名
不知道具体是什么原因。

Answer 4

你可以用INI文件啊！这样可以简单一些。

Answer 5

为什么不把Con.cfg的格式告诉大家？

Answer 6

CON在DOS里指的就是标准输入输出设备！！
当我们用CON时不同情况代表不同的设备
如copy con abc.txt
这里的CON是键盘，这句是将键盘里的输入传到文本文件里。
type abc.txt >> con
这个是打出TXT文件里的内容到屏幕上（当然不要>>con，因为这里是默认的）

Answer 7

我的程序里的Con.cfg就是普通数据文件，没什么神秘面纱的