adsense

2010-12-31

[vb] 每半小時顯示不同的問候語

dim tex as integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        tex = Minute(Now)
        
Label1.Text = Choose(tex, "0前面半小時", "1前面半小時", "2前面半小時", "3前面半小時", "4前面半小時", "5前面半小時", "6前面半小時", "7前面半小時", "8前面半小時", "9前面半小時", "10前面半小時", _
                                     "11分前面半小時", "12分前面半小時", "13前面半小時", "14前面半小時", "15前面半小時", "16前面半小時", "17前面半小時", "18前面半小時", "19前面半小時", "20前面半小時" _
                                     , "21前面半小時", "22前面半小時", "23前面半小時", "24前面半小時", "25前面半小時", "27前面半小時", "28前面半小時", "29前面半小時", "30前面半小時" _
                                     , "31過了半小時", "32過了半小時", "33過了半小時", "34過了半小時", "35過了半小時", "36過了半小時", "37過了半小時", "38過了半小時", "39過了半小時", "40過了半小時" _
                                    , "41過了半小時", "42過了半小時", "43過了半小時", "44過了半小時", "45過了半小時", "46過了半小時", "47過了半小時", "48過了半小時", "49過了半小時", "50過了半小時" _
                                    , "51過了半小時", "52過了半小時", "53過了半小時", "54過了半小時", "55過了半小時", "56過了半小時", "57過了半小時", "58過了半小時", "59過了半小時", "60過了半小時")
        Timer1.Enabled = True
    End Sub

2010-12-30

[vb] windows media player 重複播放

Public Class a

    Private Sub a_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' 新增一個播放清單
        Dim list As WMPLib.IWMPPlaylist = AxWindowsMediaPlayer1.currentPlaylist

        '執行windows media player
        Dim media As WMPLib.IWMPMedia

        '這裡可以擺放數個要播放的檔案   雙引號別忘了
        Media = Me.AxWindowsMediaPlayer1.newMedia("C:\Beethoven's Symphony No. 9 (Scherzo).wma")
        list.appendItem(media)

        media = Me.AxWindowsMediaPlayer1.newMedia("C:\New Stories (Highway Blues).wma")
        list.appendItem(media)

    End Sub
  
    Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub
End Class

2010-12-29

[vb] 新增媒體播放程式 windows media player

首先先在工具箱一般區段上 點選滑鼠右鍵
然後就會看見 系統在正在載入工具箱項目  會花上一些時間喔

小弟我一度以為他當了

一段時間過後
1. 點選com元件
2. 找到 windows  media player 打勾勾
點選確定

大功告成


2010-12-27

子網路遮罩 算法


為什麼要用32減呢
因為總長有 32個1
11111111.11111111.11111111.11111111   ((這麼多個 嚇死了吧

2010-12-23

[sql ] 顯示 民國 ??年 ?? 月 ?? 日


declare @now datetime
set @now=getdate()

select +'民國'+ convert(varchar(3),datepart(year,@now)-1911)+'年'+ 
+right('0'+ convert(varchar(2),datepart(month,@now)),2)+'月'+
+right('0'+ convert(varchar(2),datepart(day,@now)),2)+'日' as ChineseYear

2010-12-15

2010-12-01

[vb] 1130 顯示 工具列 msgbox 多一個勾勾 textbox滑鼠按右鍵

'textbox 預設文字
TextBox1.Text = "請輸入"

'文字顏色
 TextBox1.ForeColor = Color.Red


'顯示在 工具列  只有紅色那行是要打的  剩下的都是系統給的  此範例是以滑鼠滑過

  Private Sub 檔案ToolStripMenuItem_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 檔案ToolStripMenuItem.MouseMove
        ToolStripStatusLabel1.Text = 檔案ToolStripMenuItem.Text
    End Sub


'msgbox

Dim ret As Integer

        Dim msgstyle As Integer
        msgstyle = MsgBoxStyle.OkCancel + _
        MsgBoxStyle.Question + _
        MsgBoxStyle.DefaultButton2
        ret = MsgBox("開啟", msgstyle, "您在正在")

或者
用這種寫法
 MsgBox("開啟", MsgBoxStyle.YesNo + MsgBoxStyle.Question , "您正在")
但會少一個右上角的 x

'旁邊多一個勾勾


 If 複製cCtrlcToolStripMenuItem.Checked Then
            TextBox1.ReadOnly = True
            複製cCtrlcToolStripMenuItem.Checked = False
        Else
            TextBox1.ReadOnly = False
            複製cCtrlcToolStripMenuItem.Checked = True
        End If


'textbox滑鼠按右鍵 



第一個步驟要先點textbox    在屬性的地方  
點選contextmenu 做設定  設定成 contextmenu


這個是在編輯模式底下
紅色圈起來的部分   在這裡輸入  輸入你要的東西
這樣就可以做到  在textbox 按右鍵  控制它了

如:設定字體顏色
'文字顏色  紅色的地方是我輸入的  其他的都是系統給的
    Private Sub 紅色ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 紅色ToolStripMenuItem.Click
        TextBox1.ForeColor = Color.Red
    End Sub