avue-crud的效果怎么实现 vb 生成器

avue-crud的效果怎么实现

Avue是基于vue和element-ui的快速开发框架 它的核心是数据驱动UI的思想，让我们从繁琐的crud开发中解脱出来，它的写法类似easyUI，但是写起来比easyui更容易，因为它是基础数据双向绑定以及其他vue的特性。同时不知局限于crud，它还有我们经常用的一些组件例如，表单，数据展示卡，人物展示卡等，更多的组件还在开发

vb 生成器

1、新建个文本文档，然后在里面输入111，保存在C盘根目录，文件名为01.txt。

2、打开VB，新建一个窗体，创建3个按钮和1个文本框。

3、打开代码，输入以下代码：

Option Explicit

Rem 本程序为文本文档的读入并保存的实例程序,真正使用可将01.txt的文本改变!

Private Sub Command1_Click()
本按钮为打开文本文档
设输入变量INTEXT
Dim INTEXT As String
打开01.txt
Open "c:1.txt" For Input As #Do While Not EOF(1)
Line Input #1, INTEXT
Text1.Text = Text1.Text INTEXT Chr(13) Chr(10)
Loop
关闭01.txt
Close #End Sub

Private Sub Command2_Click()
本按钮为退出程序
Close #1, #End
End Sub

Private Sub Command3_Click()
本按钮为保存文本文档
设输出变量INTSVE
Dim INTSVE As String
打开01.txt
Open "c:1.txt" For Output As #Print #2, Text1.Text
关闭01.txt
Close #Text1.text = ""
End Sub

Private Sub Form_Load()
基本外观设置
Form1.BorderStyle = Form1.Caption = "文本文档的读入与保存"
Command1.Caption = "打开(&O)"
Command2.Cancel = True
Command2.Caption = "退出(&X)"
Command3.Caption = "保存(&S)"
Text1.Text = ""
End Sub

这是我自己做的，可以参考参考，我测试可以，保存也没问题。