晨彦电脑科技 Belong to oneself's sky
RSS
雪糕先生 发布于 2011/01/11 20:48 不指定
下面以动态加入一个Button按钮为例,在窗体加入一个名为Button1的按钮,下面是源代码:
引用

Public Class Form1
    '动态加入控件实例 晨彦电脑科技 WWW.BTOSS.COM
    Private Sub newbutton_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("动态加入控件实例 晨彦电脑科技 WWW.BTOSS.COM")
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim newbutton As New Button
        newbutton.Text = "newbutton"
        AddHandler newbutton.Click, AddressOf newbutton_click
        Me.Controls.Add(newbutton)
    End Sub
End Class
Actions
Tags:
 
VB VB.NET , 评论(0) , 引用(0) , 阅读(1835) , Via 本站原创
雪糕先生 发布于 2011/01/02 21:42 不指定
VB.NET删除文本框TextBox1.Text 中空行的方法:
引用

        '删除文本框中空行的方法 晨彦电脑科技 www.btoss.com
        Dim Row1, Row2 As Integer
        Dim line() As String
        Dim ArList As New ArrayList
        If Me.TextBox1.Text <> "" Then'当文本框为空时
            Row1 = Me.TextBox1.Lines.Length - 1
            For i = 0 To Row1
                If Me.TextBox1.Lines(i).ToString <> "" Then'当行不为空时
                    ArList.Add(Trim(Me.TextBox1.Lines(i).ToString))
                End If
            Next
            Row2 = ArList.Count - 1
            ReDim line(Row2)
            For i = 0 To Row2
                line(i) = ArList.Item(i).ToString
            Next
            Me.TextBox1.Lines = line
        End If
Actions
Tags:
 
VB VB.NET , 评论(1) , 引用(0) , 阅读(3166) , Via 本站原创
雪糕先生 发布于 2011/01/01 19:36 不指定
下面是VB.NET 修改桌面壁纸的方法:
引用
Public Class Form1
    '晨彦电脑科技 www.btoss.com
    Private Const SPI_SETDESKWALLPAPER As Integer = &H14
    Private Const SPIF_UPDATEINIFILE As Integer = &H1
    Private Const SPIF_SENDWININICHANGE As Integer = &H2
    Private Declare Auto Function SystemParametersInfo Lib "user32.dll" ( _
    ByVal uAction As Integer, ByVal uParam As Integer, _
    ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "图片地址", 1)
    End Sub
End Class
Actions
Tags:
 
VB VB.NET , 评论(3) , 引用(0) , 阅读(3242) , Via 本站原创
雪糕先生 发布于 2010/12/28 21:07 不指定
Actions
Tags:
 
默认分类 , 评论(9) , 引用(0) , 阅读(2576) , Via 本站原创
雪糕先生 发布于 2010/12/28 15:46 不指定
6.0RC版发布已有一段时间,从论坛反馈加上合理调整6.0正式版可以说是一个比较经典的稳定的版本了。SRS依然采用自由天空的3.0,“内存不能为”的问题已解决。但不保证100%的已兼容所有软硬件,鉴于此已在系统工具箱内置专用修复工具,方便大家调用。“安全模式启动word”问题已在RC版上努力解决,最近并无太多这方面的反馈。希望正式版不在会出现此类的问题,如有问题还请大家如实反馈。“酷狗音乐”为系统默认音乐播放软件,已关联大部音频文件。恢复RC版精简的“千千静听”方便大家声音测试(附带测试音乐一首)。另外“酷狗音乐”是属于推广软件,关于“右上方的关闭会最小化到右下方”,请大家手动设为关闭后直接退出。
Actions
Tags:
 
系统相关 , 评论(2) , 引用(0) , 阅读(2898) , Via 本站原创
, , , ,
雪糕先生 发布于 2010/12/27 13:07 不指定
下面是列出当前文件夹中所有JPG图片文件名的方法:
Dim str As String
        For Each file In My.Computer.FileSystem.GetFiles(Application.StartupPath)
            If System.IO.Path.GetExtension(file) = ".jpg" Then
                str = System.IO.Path.GetFileNameWithoutExtension(file)
                ListBox1.Items.Add(Application.StartupPath & str & ".jpg")
            End If
        Next
Actions
Tags:
 
VB VB.NET , 评论(2) , 引用(0) , 阅读(2039) , Via 本站原创
雪糕先生 发布于 2010/12/26 20:35 不指定
写程序的时候,有时需要获取一些系统的信息资料,下面列出方法:
获取此本地计算机的名称:
MsgBox (Environment.MachineName)

获取操作系统版本:
MsgBox(Val(Environment.OSVersion.Version.ToString))

Actions
Tags:
 
VB VB.NET , 评论(0) , 引用(0) , 阅读(2466) , Via 本站原创
雪糕先生 发布于 2010/12/16 13:24 不指定
下面是创建代码:
引用

        If File.Exists("C:\abc.txt") Then
            File.Delete("C:\abc.txt")
        End If
        Dim sr As StreamWriter = File.CreateText("C:\abc.txt")
        sr.Write("晨彦电脑科技")
        sr.WriteLine("WWW.BTOSS.COM")
        sr.Write("这是一个创建文本文件的例子")
        sr.Close()


下面是读取代码:
Actions
Tags:
 
VB VB.NET , 评论(4) , 引用(0) , 阅读(3717) , Via 本站原创
雪糕先生 发布于 2010/12/06 13:58 不指定
下面是单独一个链接不显示下划线的方法:
引用
<a style="text-decoration:none;" href=" http://btoss.com/">这是一个链接</a>

下面是整个页面不显示下划线的方法:
Actions
Tags:
 
网页特效 , 评论(7) , 引用(0) , 阅读(2790) , Via 本站原创
雪糕先生 发布于 2010/12/02 14:17 不指定
现在都流行DIY,自己动手,丰衣足食。但大家见过自己做手术的人么?就有这么一个傻逼,自己做包皮手术,命根子差点没了!
Actions
 
天下奇谈 , 评论(3) , 引用(0) , 阅读(2224) , Via 本站原创
雪糕先生 发布于 2010/11/29 22:01 不指定
昨天是今天的历史,今天是明天的历史,现实找不到穿越的方法,转眼我也就成为历史的一部分了!
这世界,谁也阻挡不了成为历史的命运!
Actions
Tags:
 
由感而发 , 评论(5) , 引用(0) , 阅读(2346) , Via 本站原创
雪糕先生 发布于 2010/11/16 15:39 不指定
《 GhostXP_SP3 PCOS技术快速装版 v6.0Rc 》说明

说在前面:
在发布5.9时就说过,6.0开始将做一些调整.为了稳定起见,故先发布RC版.
这次采用SRS为自由天空的3.0,兼容性对比以前的版本会更加突出.装机工具箱也做了相对的调整.
RC版将一些应用软件作了调整,在以往的使用反馈中发现"千千静听"和其它音乐软件有重合.虽然一些用户还是喜欢,但被别的软件已取代.
RC版和以后的正式版不会有太大的差别.大家也不用担心其稳定与兼容性.此目的就是为了让正式版能更加的稳定和更多和兼容,请大家放心使用.
以后的软件版本会尽量使用论坛内容的优化软件进行封装,因为论坛的自己封装的软件更合适喜欢本论坛的系统会员的口味和使用体验,其它和也更将人性化.
"酷狗"软件默认不附带试机音乐,故在RC版中没有集成.下次将在正式版中集成试机音乐.另外这次采用的虚拟机封装和以往裸机机封装无任何差别.兼容性有望大家及时反馈!
Actions
Tags:
 
, , , ,
分页: 7/68 第一页 上页 2 3 4 5 6 7 8 9 10 11 下页 最后页 [ 显示模式: 摘要 | 列表 ]
赞助商链接
热门Tags
统计