Question

如何建立一个可以查看文件内容的VB程序？

如何建立一个含有Picture的控件，然后带有一个菜单栏，选择类似读取数据按钮的时候，会将当前文件夹内的*.txt 文件的打印在picture当中。然后单击退出按钮时，结束程序。

初学VB还望高手多多指教！！

Answer 1

连接Oracle的数据库的OraDBHelper公共类写在DAL层，OraDBHelper类引用OracleClient
当BLL层引用DAL层时，程序提示OracleConnection 等函数时提示过期。 UI层引用不到BLL层，当把OraDBHelper类删除时正常

Answer 2

Private Sub menuOpen_Click()

Dim fn As Integer, a As String

On Error GoTo E

CommonDialog1.Filter = "*.txt"

CommonDialog1.CancelError = True

CommonDialog1.ShowOpen

fn = FreeFile

Open CommonDialog1.FileName For Input As fn

Picture1.Cls

Do While Not EOF(fn)

Line Input #fn, a

Picture1.Print a

Loop

Close fn

E:

End Sub

Private Sub menuExit_Click()

End

End Sub

Answer 3

Picture控件怎么能显示txt文本啊!

Answer 4

dim a() as integer
p=inputbox("Input data:")
if p<0 then msgbox("no data!!!!!!!!!"):exit sub
do
i=i+1
redim preserve a(i-1)
a(i-1)=p
p=inputbox("Input data:")
loop until p<0
for l=0 to i-1
s=s+a(l)
next l
ave=s/(i-1)
for l=0 to i-1
if a(l)<ave then flag=flag+1
next
msgbox("平均成绩:" & str(ave) & chr(13) & chr(10) & "低于平均成绩人数:" & str(flag))