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

成长之路

我在路上

 
 
 

日志

 
 

VB总结(一)  

2014-02-06 17:39:40|  分类: 技术 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
            迟到的VB总结。迟到的原因有二:一是自己本身没有总结的习惯,还是按照以前的老路子(把一门课程学完就扔一边)来,在此不得不承认自己的惯性比较大。二是自己的进度比较慢,自己感觉没有什么东西可总结的。看着小伙伴们的经典总结自己是真心的羡慕嫉妒”恨“啊!今天脑袋一热一拍脑门我写篇总结毕竟自己也学VB半个多月了。。。可是开写就感觉特别的别扭,不过米老师说过改变一个习惯必定会有不舒服的过程,否则还是按着原来的轨迹在运行,这多多少少还是带给自己一点安慰吧!!!
          话不多说下面就来与大家分享一下我从接触VB以来自己的小感悟(总结)!
          在学习中应多思考,正所谓学而不思则罔。学会举一反三,那么我们认真思考敲完百例后那我们绝对收获的不仅是一百个例子而是成千甚至上万个例子。(特别声明:这并不与米老师所指导的我们先不管会不会跑一遍的思想相矛盾而恰恰是与米老师所说的是相辅相成米老师让我们先跑一遍是熟悉它然后再跑二遍三遍,,,的时候就是自然而然的思考虽然你自己感觉自己没有在思考但其实你已经无意识在你的脑海里思考过了这或许就是老师的踏雪无痕的境界吧!)令我感触比较深的一个例子是百例的第32例
 百例上的原代码:
             Option Explicit

Private Sub Form_Load()

    Form1.Width = Screen.Width
    Form1.Height = Screen.Height / 5
    
    lbl1.Left = 0
    lbl1.Top = (pic1.ScaleHeight - lbl1.Height) / 2
    
End Sub

Private Sub Timer1_Timer()

    lbl1.Left = lbl1.Left + 60
        If lbl1.Left > pic1.Width Then
             lbl1.Left = pic1.Left - lbl1.Width
        End If
        
End Sub
实现的效果图(1):
                             VB总结(一) - 张晗 - 张晗 廊坊师范学院信息技术提高班 十一期
   但是我看到平常的屏幕上的滚动字大部分都是从右向左滚动,有了这个想法之后我就着手准备不过在尝试中发现label没有right属性是通过left属性来实现这个效果的,实现了这个效果后发现自己对滚动有了更深一层次的了解了。
    其余的代码和上面的一样只是改变timer函数的代码如下:
Private Sub Timer1_Timer()

lbl1.Left = lbl1.Left - 60
        If  lbl 1.Left < pic1.Left -  lbl 1.Width Then
              lbl 1.Left = pic1.Left + pic1.Width
        End If
        
End Sub
实现的效果图(2):
                                VB总结(一) - 张晗 - 张晗 廊坊师范学院信息技术提高班 十一期
        但是出来之后字滚动之后后面还带这一个点(见效果图(2)),经过思考原来是字体设置为倾斜导致的,不过有个点出来的效果也蛮不错的,这也算也一个意外的收获吧!
VB总结(一) - 张晗 - 张晗 廊坊师范学院信息技术提高班 十一期
 
 



            
  评论这张
 
阅读(115)| 评论(55)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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