VB 四言古诗词赏析制作

gs.txt春晓
春眠不觉晓，
处处闻啼鸟。
夜来风雨声，
花落知多少。
cx.jpg
锄禾
锄禾日当午，
汗滴禾下土。
谁知盘中餐，
粒粒皆辛苦。
ch.jpg
草 / 赋得古原草送别
离离原上草，一岁一枯荣。
野火烧不尽，春风吹又生。
远芳侵古道，晴翠接荒城。
又送王孙去，萋萋满别情。
c.jpg
柳宗元《江雪》
千山鸟飞绝,
万径人踪灭。
孤舟蓑笠翁,
独钓寒江雪。
jx.jpg
杜牧《江南春绝句》
千里莺啼绿映红，
水村山郭酒旗风。
南朝四百八十寺，
多少楼台烟雨中。
jnc.jpg

VERSION 5.00
Begin VB.Form Form2 Caption         =   "四言古诗词维护"ClientHeight    =   6915ClientLeft      =   120ClientTop       =   465ClientWidth     =   11535LinkTopic       =   "Form2"ScaleHeight     =   6915ScaleWidth      =   11535StartUpPosition =   3  '窗口缺省Begin VB.CommandButton Command4 Caption         =   "返回"Height          =   615Left            =   6600TabIndex        =   7Top             =   6120Width           =   2295EndBegin VB.CommandButton Command1 Caption         =   "添加"Height          =   495Left            =   3840TabIndex        =   4Top             =   600Width           =   1815EndBegin VB.CommandButton Command2 Caption         =   "修改"Height          =   495Left            =   3840TabIndex        =   3Top             =   1080Width           =   1815EndBegin VB.CommandButton Command3 Caption         =   "删除"Height          =   495Left            =   3840TabIndex        =   2Top             =   1560Width           =   1815EndBegin VB.TextBox Text1 BeginProperty Font Name            =   "宋体"Size            =   12Charset         =   134Weight          =   400Underline       =   0   'FalseItalic          =   0   'FalseStrikethrough   =   0   'FalseEndPropertyHeight          =   3375Left            =   6240MultiLine       =   -1  'TrueScrollBars      =   2  'VerticalTabIndex        =   1Top             =   720Width           =   4935EndBegin VB.ListBox List1 Height          =   3300ItemData        =   "Form2.frx":0000Left            =   120List            =   "Form2.frx":0002TabIndex        =   0Top             =   480Width           =   3135EndBegin VB.Label Label2 Caption         =   "要维护的古诗词内容 第一行古诗题目 再四行古诗内容 最后一行图片名称"Height          =   420Left            =   6360TabIndex        =   6Top             =   240Width           =   3015EndBegin VB.Label Label1 Caption         =   "四言古诗词列表:"Height          =   180Left            =   240TabIndex        =   5Top             =   120Width           =   1350End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public gs As String
Dim gsarr() As StringPublic Sub readgs()
Dim s(6) As StringIf Dir(gs) = "" Then Exit Sub
Open gs For Input As #1
Do While Not EOF(1)Line Input #1, s(0)Line Input #1, s(1)Line Input #1, s(2)Line Input #1, s(3)Line Input #1, s(4)Line Input #1, s(5)ReDim Preserve gsarr(UBound(gsarr) + 1)gsarr(UBound(gsarr)) = s(0) & vbCrLf & s(1) & vbCrLf & s(2) & vbCrLf & s(3) & vbCrLf & s(4) & vbCrLf & s(5)List1.AddItem s(0)
Loop
Close #1End Sub
Public Sub writegs()Dim i As IntegerOpen gs For Output As #1For i = 1 To UBound(gsarr)If gsarr(i) <> "" Then Print #1, Trim(gsarr(i))NextClose #1
End Sub
Private Sub Command1_Click()Dim aIf Text1.Text <> "" Thena = Split(Text1, vbCrLf)If UBound(a) = 5 ThenReDim Preserve gsarr(UBound(gsarr) + 1)gsarr(UBound(gsarr)) = a(0) & vbCrLf & a(1) & vbCrLf & a(2) & vbCrLf & a(3) & vbCrLf & a(4) & vbCrLf & a(5)Call writegsList1.AddItem a(0)Text1.Text = ""ElseMsgBox "要维护的古诗词内容 第一行古诗题目 再四行古诗内容 最后一行图片名称,此时行数为: " & UBound(a)End IfElseMsgBox "请在文本框内输入内容后再操作", vbOKOnlyExit SubEnd If
End SubPrivate Sub Command2_Click()Dim aIf List1.ListIndex <> -1 Thena = Split(Text1, vbCrLf)If UBound(a) = 5 Thengsarr(List1.ListIndex + 1) = a(0) & vbCrLf & a(1) & vbCrLf & a(2) & vbCrLf & a(3) & vbCrLf & a(4) & vbCrLf & a(5)Call writegsList1.List(List1.ListIndex) = a(0)Text1.Text = ""ElseMsgBox "要维护的古诗词内容 第一行古诗题目 再四行古诗内容 最后一行图片名称,此时行数为: " & UBound(a)End IfElseMsgBox "请选择要修改的列表的内容", vbOKOnlyExit SubEnd If
End SubPrivate Sub Command3_Click()If List1.ListIndex <> -1 Thengsarr(List1.ListIndex + 1) = ""Call writegsList1.RemoveItem (List1.ListIndex)Text1.Text = ""ElseMsgBox "请选择要删除的列表的内容", vbOKOnlyExit SubEnd If
End SubPrivate Sub Command4_Click()Form1.ShowUnload Me
End SubPrivate Sub Form_Load()ReDim gsarr(0)readgs
End SubPrivate Sub List1_Click()If List1.ListIndex > -1 ThenText1.Text = gsarr(List1.ListIndex + 1)ElseText1.Text = ""End If
End Sub

VERSION 5.00
Begin VB.Form Form1 Caption         =   "四言古诗词欣赏"ClientHeight    =   7590ClientLeft      =   225ClientTop       =   870ClientWidth     =   8085LinkTopic       =   "Form1"ScaleHeight     =   7590ScaleWidth      =   8085StartUpPosition =   3  '窗口缺省Begin VB.HScrollBar HScroll1 Height          =   375Left            =   2280Max             =   2999Min             =   1TabIndex        =   5Top             =   6480Value           =   2999Width           =   4215EndBegin VB.Timer Timer1 Interval        =   3000Left            =   7080Top             =   5760EndBegin VB.CommandButton Command4 Caption         =   "最后一首"Height          =   615Left            =   5760TabIndex        =   4Top             =   6960Width           =   1575EndBegin VB.CommandButton Command3 Caption         =   "下一首"Height          =   615Left            =   4080TabIndex        =   3Top             =   6960Width           =   1575EndBegin VB.CommandButton Command2 Caption         =   "上一首"Height          =   615Left            =   2400TabIndex        =   2Top             =   6960Width           =   1575EndBegin VB.CommandButton Command1 Caption         =   "第一首"Height          =   615Left            =   720TabIndex        =   1Top             =   6960Width           =   1575EndBegin VB.PictureBox Picture1 Height          =   6255Left            =   720ScaleHeight     =   6195ScaleWidth      =   6315TabIndex        =   0Top             =   0Width           =   6375Begin VB.Label Label2 Alignment       =   2  'CenterBackStyle       =   0  'TransparentBeginProperty Font Name            =   "宋体"Size            =   21.75Charset         =   134Weight          =   700Underline       =   0   'FalseItalic          =   0   'FalseStrikethrough   =   0   'FalseEndPropertyForeColor       =   &H00FF8080&Height          =   5655Left            =   120TabIndex        =   7Top             =   360Width           =   6135EndEndBegin VB.Label Label3 Caption         =   "Label3"Height          =   375Left            =   6720TabIndex        =   8Top             =   6480Width           =   1215EndBegin VB.Label Label1 AutoSize        =   -1  'TrueCaption         =   "显示速度"Height          =   180Left            =   360TabIndex        =   6Top             =   6600Width           =   720EndBegin VB.Menu WeiHu Caption         =   "维护"End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim cnt As Integer
Dim gsarr() As String
Dim aPrivate Sub Command1_Click()
cnt = 1
commandset
End SubPrivate Sub Command2_Click()cnt = cnt - 1commandset
End SubPrivate Sub Command3_Click()cnt = cnt + 1commandset
End SubPrivate Sub Command4_Click()cnt = UBound(gsarr)commandset
End SubPrivate Sub Form_Load()
Form2.gs = App.Path & "\gs.txt"ReDim gsarr(0)readgscnt = 1commandset
Timer1.Interval = 3000 - HScroll1.Value
Label1.Caption = "显示速度：" & Timer1.Interval & "毫秒"
Label3.Caption = "1/" & UBound(gsarr)
End SubPrivate Sub HScroll1_Change()Timer1.Interval = 3000 - HScroll1.ValueLabel1.Caption = "显示速度：" & Timer1.Interval & "毫秒"
End SubPrivate Sub HScroll1_Scroll()Timer1.Interval = 3000 - HScroll1.ValueLabel1.Caption = "显示速度：" & Timer1.Interval & "毫秒"
End SubPrivate Sub Timer1_Timer()
Static i As Integer
Label2.Caption = ""
Dim j As Integer
For j = 0 To iLabel2.Caption = Label2.Caption & a(j) & vbCrLf
Next
i = i + 1
If i = 5 Then
Timer1.Enabled = False
i = 0
End If
End SubPrivate Sub WeiHu_Click()
Form2.Show
Unload Me
End Sub
Private Sub commandset()Timer1.Enabled = FalseLabel2.Caption = ""Label3.Caption = cnt & "/" & UBound(gsarr)Picture1.Picture = LoadPicture("")If cnt = 1 ThenCommand2.Enabled = FalseElseCommand2.Enabled = TrueEnd IfIf cnt = UBound(gsarr) ThenCommand3.Enabled = FalseElseCommand3.Enabled = TrueEnd Ifa = Split(gsarr(cnt), vbCrLf)If Dir(App.Path & "\" & a(5)) <> "" ThenPicture1.Picture = LoadPicture(App.Path & "\" & a(5))End IfTimer1.Enabled = TrueEnd SubPrivate Sub readgs()
Dim s(6) As StringIf Dir(Form2.gs) = "" Then Exit Sub
Open Form2.gs For Input As #1
Do While Not EOF(1)Line Input #1, s(0)Line Input #1, s(1)Line Input #1, s(2)Line Input #1, s(3)Line Input #1, s(4)Line Input #1, s(5)ReDim Preserve gsarr(UBound(gsarr) + 1)gsarr(UBound(gsarr)) = s(0) & vbCrLf & s(1) & vbCrLf & s(2) & vbCrLf & s(3) & vbCrLf & s(4) & vbCrLf & s(5)Loop
Close #1End Sub

VB 四言古诗词赏析制作相关推荐

“物联网开发实战”学习笔记-（四）智能音箱制作和语音控制
"物联网开发实战"学习笔记-(四)智能音箱制作和语音控制这次来造一个属于自己的智能音箱,这里详细介绍了智能音箱的语音控制的实现. 智能音箱的技术架构智能音箱主要涉及拾音.前端信 ...
arduinouno组装无人机_Arduino UNO四自由度机械臂制作
四自由度机械臂制作准备材料 1. 某宝上的四自由度机械臂拼装板 2. 9克舵机 x 3 3. Arduino UNO 4. 步进电机 x 1 5. 外电源及导线制作改进拼装后发现原来的底盘旋 ...
小学四年级计算机课制作课程表,四年级信息技术上册制作课程表1课件冀教版.ppt...
<四年级信息技术上册制作课程表1课件冀教版.ppt>由会员分享,可在线阅读,更多相关<四年级信息技术上册制作课程表1课件冀教版.ppt(11页珍藏版)>请在装配图网上搜索. 1 ...
[开源]一言·古诗词 API，随机返回一条古诗词名句。采用 Vert.x 全异步开发，毫秒级稳定响应。支持 svg / png / json / txt 返回...
一言·古诗词 API (掘金会自动替换图片,所以不会自动换,没办法) 简介古诗词·一言API 是一个可以随机返回一句古诗词名句的接口.具有以下特点: 快:使用 Vert.x Java 全异步框架开发 ...
白居易《放言》赏析
放言白居易赠君一法决狐疑, 不用钻龟与祝蓍. 试玉要烧三日满, 辨材须待七年期. 周公恐惧流言日, 王莽谦恭未篡时. 向使当年身便死, 一生真伪有谁知. [赏析] 唐元和五年(公元八百 ...
四管前级怎么去掉高低音音调_烧友自荐：2SK304四管前级制作难点浅析
用2SK304制作的liushuliang四管前级完全可以堪称是一款名机电路,但在日常实际制作中遭遇失败,屡见不鲜.分析原因,少数则是管子选择不当,大多则是电路自激.可以发生在某一级,也可以多级同时发 ...
20-《电子入门趣谈》第四章_自己制作电路板-4.1面包板的介绍和经典案例使用教程
好消息:请在手机淘宝或闲鱼上搜索"电子入门趣谈",有惊喜哦 :) 我把全本电子入门趣谈的电子版(包括科技提升和理论升华部分,共计50余万字)放到上面开始兜售啦,如果您真的喜欢这本书 ...
21-《电子入门趣谈》第四章_自己制作电路板-4.2洞洞板的介绍和经典案例使用教程
好消息:请在手机淘宝或闲鱼上搜索"电子入门趣谈",有惊喜哦 :) 我把全本电子入门趣谈的电子版(包括科技提升和理论升华部分,共计50余万字)放到上面开始兜售啦,如果您真的喜欢这本书 ...
四足蜘蛛机器人--制作过程记录
更新:老有人问舵机的编号,https://www.instructables.com/id/DIY-Spider-RobotQuad-robot-Quadruped/ 原作者链接里面什么都有,有些人 ...

VB 四言古诗词赏析制作

VB 四言古诗词赏析制作相关推荐

最新文章

热门文章

VB 四言古诗词赏析 制作

VB 四言古诗词赏析 制作相关推荐

最新文章

热门文章

VB 四言古诗词赏析制作

VB 四言古诗词赏析制作相关推荐