晨彦电脑科技 Belong to oneself's sky
RSS
雪糕先生 发布于 2011/03/11 11:50 不指定
点击在新窗口中浏览此图片
昨天我们这的中学有人跳楼了---为什么总有人这么不珍惜生命??...............

17岁的你为何看破红尘,到底为了什么让你放弃了生命...........

希望现在的年青人珍惜生命,好好修行!

身体发肤,受之父母,不敢毁伤,孝之始也。--《孝经·开宗明义章》
Actions
Tags:
 
由感而发 , 评论(1) , 引用(0) , 阅读(5629) , Via 本站原创
雪糕先生 发布于 2011/02/08 10:57 不指定
不需要关闭防火墙。不需要开启 Guest 账户。即可在Windows 7下共享文件,而且可以跟Windows XP的共享互相访问。
  方法如下:
Actions
Tags:
 
实用技巧 , 评论(0) , 引用(0) , 阅读(3643) , Via 本站原创
雪糕先生 发布于 2011/01/23 14:10 不指定
当多域名绑定一主机,需要不同域名显示不同内容时,可用下面的方法:
Actions
Tags:
 
网页特效 , 评论(0) , 引用(0) , 阅读(3419) , Via 本站原创
雪糕先生 发布于 2011/01/22 19:42 不指定
当有多个域名指向同一个主机,又想调用不同广告代码如:用 www.btoss.com 域名访问该网站的话,调用A.js,用tao.btoss.com 域名访问该网站的话,调用B.js,其他域名访问则调用C.js
Actions
Tags:
 
网页特效 , 评论(0) , 引用(0) , 阅读(3744) , Via 本站原创
雪糕先生 发布于 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) , 阅读(3667) , 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) , 阅读(6185) , 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) , 阅读(6462) , Via 本站原创
雪糕先生 发布于 2010/12/28 21:07 不指定
Actions
Tags:
 
默认分类 , 评论(9) , 引用(0) , 阅读(5599) , Via 本站原创
雪糕先生 发布于 2010/12/28 15:46 不指定
6.0RC版发布已有一段时间,从论坛反馈加上合理调整6.0正式版可以说是一个比较经典的稳定的版本了。SRS依然采用自由天空的3.0,“内存不能为”的问题已解决。但不保证100%的已兼容所有软硬件,鉴于此已在系统工具箱内置专用修复工具,方便大家调用。“安全模式启动word”问题已在RC版上努力解决,最近并无太多这方面的反馈。希望正式版不在会出现此类的问题,如有问题还请大家如实反馈。“酷狗音乐”为系统默认音乐播放软件,已关联大部音频文件。恢复RC版精简的“千千静听”方便大家声音测试(附带测试音乐一首)。另外“酷狗音乐”是属于推广软件,关于“右上方的关闭会最小化到右下方”,请大家手动设为关闭后直接退出。
Actions
Tags:
 
系统相关 , 评论(2) , 引用(0) , 阅读(5426) , 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) , 阅读(4798) , Via 本站原创
雪糕先生 发布于 2010/12/26 20:35 不指定
写程序的时候,有时需要获取一些系统的信息资料,下面列出方法:
获取此本地计算机的名称:
MsgBox (Environment.MachineName)

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

Actions
Tags:
 
VB VB.NET , 评论(0) , 引用(0) , 阅读(4601) , 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) , 阅读(7096) , Via 本站原创
分页: 7/69 第一页 上页 2 3 4 5 6 7 8 9 10 11 下页 最后页 [ 显示模式: 摘要 | 列表 ]
赞助商链接
热门Tags
统计