- Jul 25 Wed 2012 22:34
-
愛情公寓之感興趣單項功能(去除五次限制)
- Jun 19 Tue 2012 23:39
-
ListView 單獨選項
Private Sub ListView_單選(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked
'讀取 checkbox 的位置
'單選checkbox 不能複選
If CheckBox1.Checked = True Then
If e.Item.Checked = True Then
For i As Integer = (ListView1.CheckedItems.Count - 1) To 0 Step (-1)
If Not ListView1.CheckedItems.Item(i).Equals(e.Item) Then
ListView1.CheckedItems.Item(i).Checked = False
End If
Next
End If
'讀取 checkbox 的位置
'單選checkbox 不能複選
If CheckBox1.Checked = True Then
If e.Item.Checked = True Then
For i As Integer = (ListView1.CheckedItems.Count - 1) To 0 Step (-1)
If Not ListView1.CheckedItems.Item(i).Equals(e.Item) Then
ListView1.CheckedItems.Item(i).Checked = False
End If
Next
End If
- Jun 16 Sat 2012 22:07
-
如何讓ListView 控件內的Checkbox 單選
網路上找到的範例
If e.Item.Checked = True Then
For i As Integer = (ListView1.CheckedItems.Count - 1) To 0 Step (-1)
If Not ListView1.CheckedItems.Item(i).Equals(e.Item) Then
ListView1.CheckedItems.Item(i).Checked = False
End If
Next
End If
If e.Item.Checked = True Then
For i As Integer = (ListView1.CheckedItems.Count - 1) To 0 Step (-1)
If Not ListView1.CheckedItems.Item(i).Equals(e.Item) Then
ListView1.CheckedItems.Item(i).Checked = False
End If
Next
End If
- Jun 10 Sun 2012 22:50
-
簡易型WebBrowser 範例
- May 29 Tue 2012 19:46
-
RC語音小工具
- May 25 Fri 2012 22:39
-
[程式]日期相關
dim date2 as date = date.now
'轉換時間
date2 = (Date.Now - date1).ToString
Label1.Text = date2.ToString("yyyy/MM/dd HH:mm:ss.fffffff")
'轉換時間
date2 = (Date.Now - date1).ToString
Label1.Text = date2.ToString("yyyy/MM/dd HH:mm:ss.fffffff")
- May 04 Fri 2012 23:43
-
VB.Net 繪製滑鼠
Dim bmCur As New Bitmap(60, 60)
Dim g As Graphics = Graphics.FromImage(bmCur)
'開始畫雙圓形
g.FillRectangle(Brushes.Transparent, 0, 0, 60, 60)
g.DrawEllipse(Pens.Red, 10, 10, 40, 40)
g.DrawEllipse(Pens.Red, 0, 0, 60, 60)
g.DrawEllipse(Pens.Red, 30, 30, 1, 1)
g.DrawEllipse(Pens.Red, 25, 25, 10, 10)
'取得滑鼠的指標
Dim ptrCur As IntPtr = bmCur.GetHicon
Dim cur As Cursor
cur = New Cursor(ptrCur)
'設定滑鼠
Cursor.Current = cur
Dim g As Graphics = Graphics.FromImage(bmCur)
'開始畫雙圓形
g.FillRectangle(Brushes.Transparent, 0, 0, 60, 60)
g.DrawEllipse(Pens.Red, 10, 10, 40, 40)
g.DrawEllipse(Pens.Red, 0, 0, 60, 60)
g.DrawEllipse(Pens.Red, 30, 30, 1, 1)
g.DrawEllipse(Pens.Red, 25, 25, 10, 10)
'取得滑鼠的指標
Dim ptrCur As IntPtr = bmCur.GetHicon
Dim cur As Cursor
cur = New Cursor(ptrCur)
'設定滑鼠
Cursor.Current = cur
- May 04 Fri 2012 07:34
-
sendmessage 與 WM_Gettext
這程式碼是用在要取視窗的標題文字用
深藍色字體可有可無
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Text
Namespace VBDotNet_SendMessage_WM_GETTEXT_ObjektbeschreibungErmitteln_1
Public Class MainForm
Inherits System.Windows.Forms.Form
Private button1 As System.Windows.Forms.Button
Public Shared Sub Main
Dim fMainForm As New MainForm
fMainForm.ShowDialog()
End Sub
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
#Region " Windows Forms Designer generated code "
Private Sub InitializeComponent()
Me.button1 = New System.Windows.Forms.Button
Me.SuspendLayout
'
'button1
'
Me.button1.Location = New System.Drawing.Point(8, 8)
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(280, 40)
Me.button1.TabIndex = 0
Me.button1.Text = "&Test..."
AddHandler Me.button1.Click, AddressOf Me.Button1Click
'
'MainForm
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 53)
Me.Controls.Add(Me.button1)
Me.Name = "MainForm"
Me.Text = "Testform <SendMessage - WM_GETTEXT - Objektbeschreibung ermitteln>"
Me.ResumeLayout(false)
End Sub
#End Region
Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
Dim Result As String = GetText(button1.Handle)
If (Not Result Is String.Empty) Then
MessageBox.Show(GetText(Me.Handle), "Info")
End If
End Sub
End Class
End Namespace
Public Module Win32Api
Private Declare Function SendMessageByInt Lib "user32.dll" Alias "SendMessageA" _
(ByVal hWnd As IntPtr, _
ByVal uMsg As Int32, _
ByVal wParam As Int32, _
ByVal lParam As Int32) As Int32
Private Declare Function SendMessageByString Lib "user32.dll" Alias "SendMessageA" _
(ByVal hWnd As IntPtr, _
ByVal uMsg As Int32, _
ByVal wParam As Int32, _
ByVal lParam As StringBuilder) As Int32
Private Const WM_GETTEXT As Int32 = &HD
Private Const WM_GETTEXTLENGTH As Int32 = &HE
Public Function GetText(ByVal hwnd As IntPtr) As String
If (Not hwnd.Equals(IntPtr.Zero)) Then
Dim NumberOfCharacters As Int32 = SendMessageByInt(hwnd, WM_GETTEXTLENGTH, 0, 0)
If NumberOfCharacters > 0 Then
Dim ptText As New StringBuilder(NumberOfCharacters)
Dim Result As Int32 = SendMessageByString(hwnd, WM_GETTEXT, NumberOfCharacters + 1, ptText)
If Result <> 0 Then
Return ptText.ToString()
Else
Return String.Empty
End If
End If
Else
MessageBox.Show("Fehler in der Verarbeitung: IntPtr!", "Info")
End If
End Function
End Module
深藍色字體可有可無
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Text
Namespace VBDotNet_SendMessage_WM_GETTEXT_ObjektbeschreibungErmitteln_1
Public Class MainForm
Inherits System.Windows.Forms.Form
Private button1 As System.Windows.Forms.Button
Public Shared Sub Main
Dim fMainForm As New MainForm
fMainForm.ShowDialog()
End Sub
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
#Region " Windows Forms Designer generated code "
Private Sub InitializeComponent()
Me.button1 = New System.Windows.Forms.Button
Me.SuspendLayout
'
'button1
'
Me.button1.Location = New System.Drawing.Point(8, 8)
Me.button1.Name = "button1"
Me.button1.Size = New System.Drawing.Size(280, 40)
Me.button1.TabIndex = 0
Me.button1.Text = "&Test..."
AddHandler Me.button1.Click, AddressOf Me.Button1Click
'
'MainForm
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 53)
Me.Controls.Add(Me.button1)
Me.Name = "MainForm"
Me.Text = "Testform <SendMessage - WM_GETTEXT - Objektbeschreibung ermitteln>"
Me.ResumeLayout(false)
End Sub
#End Region
Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
Dim Result As String = GetText(button1.Handle)
If (Not Result Is String.Empty) Then
MessageBox.Show(GetText(Me.Handle), "Info")
End If
End Sub
End Class
End Namespace
Public Module Win32Api
Private Declare Function SendMessageByInt Lib "user32.dll" Alias "SendMessageA" _
(ByVal hWnd As IntPtr, _
ByVal uMsg As Int32, _
ByVal wParam As Int32, _
ByVal lParam As Int32) As Int32
Private Declare Function SendMessageByString Lib "user32.dll" Alias "SendMessageA" _
(ByVal hWnd As IntPtr, _
ByVal uMsg As Int32, _
ByVal wParam As Int32, _
ByVal lParam As StringBuilder) As Int32
Private Const WM_GETTEXT As Int32 = &HD
Private Const WM_GETTEXTLENGTH As Int32 = &HE
Public Function GetText(ByVal hwnd As IntPtr) As String
If (Not hwnd.Equals(IntPtr.Zero)) Then
Dim NumberOfCharacters As Int32 = SendMessageByInt(hwnd, WM_GETTEXTLENGTH, 0, 0)
If NumberOfCharacters > 0 Then
Dim ptText As New StringBuilder(NumberOfCharacters)
Dim Result As Int32 = SendMessageByString(hwnd, WM_GETTEXT, NumberOfCharacters + 1, ptText)
If Result <> 0 Then
Return ptText.ToString()
Else
Return String.Empty
End If
End If
Else
MessageBox.Show("Fehler in der Verarbeitung: IntPtr!", "Info")
End If
End Function
End Module
- Apr 25 Wed 2012 17:03
-
vb6 函數轉 vb.net
- Apr 08 Sun 2012 20:11
-
DK收音機
此程式是綠色版，直接執行
如果遇到不能執行
請檢查自己是否有安裝 Framwork 3.5
檢查方式
開始 > 設定 > 控制台 > 新增或移除程式
找有沒有
Microsoft.Net Framework 3.5 這種字眼
版本
- Mar 29 Thu 2012 19:38
-
用 webbrowser 不彈出IE
網路上我一直在找 如何用 webbrowser 控件 打開javascript 開新視窗 不要彈出IE 來開
找了好久終於找到一個範本了
http://www.codeproject.com/Articles/13598/Extended-NET-2-0-WebBrowser-Control
- Mar 20 Tue 2012 22:00
-
愛情公寓 感興趣任務
