注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

白爱民 廊坊师范学院信息技术提高班十四期

变是不变的,你永远满足不了你的欲望

 
 
 

日志

 
 

作品展  

2017-04-08 15:56:49|  分类: VB总结 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
作品展终于结束了,这是个难熬的日子,现在我想把它编写成一个童话来纪念一下我吧!

1. 作品:我们的是一个路线查询,其实很简单,在刚刚接触这个东西,刚刚接触新的小伙伴,三个新的事物加在一起就是现实,我们都是蒙蔽的少年而已,现在终于结束了,因为做这样一个无头的事件的确是无法想象的,但是就像火弹一样不可能永远砸向我们,我需要的就是一个失败的例子吧(因为已经失败了),我们并没有不甘心,而是永远默默无闻的向前走,接下来将我们所用到的知识奉献给大家。

    (1)数据库: Dim cnn As New ADODB.Connection '定义数据库连接变量
    Dim rst As New ADODB.Recordset  '定义记录集变量
    LockControl (True)  '锁定窗口中部分控件
    cnn.ConnectionString = Conn '设置数据库连接字符串
    cnn.Open    '打开数据库连接
    Set rst.ActiveConnection = cnn  '设置记录集的数据库连接
    rst.Open "SELECT [bus] FROM [bus]"  '打开记录集,得到线路名数据

    (2)flash交互:首先将.fla中的按钮设置on (release) {
                                                                                                 fscommand ("Send Action");
                                                                                                  }
                                   其次将vb中写入代码:
Dim msg As ButtonConstants                    ’这些是为了将flash全屏化
Private Sub Form_Resize()
    ShockwaveFlash1.Width = Me.Width
    ShockwaveFlash1.Height = Me.Height
    ShockwaveFlash1.Top = 0
    ShockwaveFlash1.Left = 0
End Sub

Private Sub Form_Load()                              ’播放flash
ShockwaveFlash1.Movie = App.Path & "\1.swf"
ShockwaveFlash1.Play
End Sub

Private Sub ShockwaveFlash1_FScommand(ByVal command As String, ByVal args As String)           ‘设置按钮
If command = "1" Then
frmMain.Show
End If
End Sub
  
[常用快捷键:Ctrl+f,Ctrl+enter]
                   
    (3)断点调试及出现的问题:在右面点击左键然后F8就可以调试了,但是这个往下的四行语句始终没有弄明白!
作品展 - 十四期  白爱民 - 白爱民 廊坊师范学院信息技术提高班十四期
 
    (4)flash的下载及使用:
               1. 如何下载网页上面花钱的flash:
                     (1)首先Ctrl+u找出其中的所有代码
                     (2)Ctrl+f查找(.swf),然后将其中的那串网址复制出来
                     (3)打开迅雷新建:输入(2)中复制的网址便可下载
               2. 如何将flash反编译:
                     (1)使用IMPERATOR FLA1.63这个软件
                     (2)使用IMPERATOR FLA1.63
                     (3)使用flash mx 2004

2. 作品展任务:这次作品展没有参加任何的事物,但是也是难逃其咎,本来打算迎接爸妈的到来可以陪伴他们三天,但是为了提高班应该献出我们的责任,总之不能所有人都参加作品展项目吧(自己的一个小小安慰吧!)。自己的自考也是因为这个把所有的事情都耽误了,但是经历了这个事情我明白了很大的道理,不管是自己的还是面对以后团体的厉害。总之额外收获最大的就是帮助别人就是帮助自己,退一步海阔天空。

    (1)五楼的宣传:其实挺简单主要就是首先想到一个结果是什么,然后为了他再去努力,做好自己手里的工作才是最大帮助自己(这些借鉴给所有的人)
    (2)展牌:每天辛辛苦苦的去弄展牌也是很难受的事情,经历了整整十天的出勤也是让大家很是受罪,并且现在面临自考的我们即使结束了也是不能放弃自己。

3. 家长会:终于等到了我爸妈的到来,这一点毋庸置疑,每年只有十三天的时间可以和爸妈在一起呆着,这样的机会我是不会错过的,知道了这次的套路那么下次就有更好的想法了。

    (1)剧务:说白了我们是站在台上看节目的人群,(因为台下没有地?),我们经历了十点多去隔壁吃鸡公煲的额外经历
    (2)博客书:授书环节是不可避免的,也是对自己成长的一个里程碑吧!


小结:经历了种种磨难,终于可以刑满释放了,感觉心里的一个石头落地但是没有声响,这次的作品展虽然艰辛,也很少借鉴前人的脚步,但是有一个不错的结局我感觉还是可观的,总之经历越多收获越大,为TGB圆满落幕而鼓掌!现在我们迎来了自考的考试,前方高能预警我们且行且珍惜!
  评论这张
 
阅读(59)| 评论(24)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018