I-Cloud程式攻略

colud77 發表在 痞客邦 留言(0) 人氣()

'使用GetTickCount這個API函數作出更準確的計時！
'宣告法是：
Declare Function GetTickCount Lib "

(繼續閱讀...)

colud77 發表在 痞客邦 留言(0) 人氣()

Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Function IsConnected() As Boolean
IsConnected =

(繼續閱讀...)

colud77 發表在 痞客邦 留言(0) 人氣()

'方法1
Name= Configuration.ConfigurationSettings.AppSettings("strName")
'方法2
'加入參考 System.Configuration
Name = ConfigurationManager.AppSettings("strName")

(繼續閱讀...)

colud77 發表在 痞客邦 留言(0) 人氣()

'原始DLL內容
Public Class Class1
    Public Sub MSG()
        MsgBox(Date.Now.Date.ToString("yyyy/MM/dd"))
    End Sub

(繼續閱讀...)

colud77 發表在 痞客邦 留言(0) 人氣()

'vb.net 模擬滑鼠點下
Option Explicit On
Module MManip
    'API 定義
    Public Declare Sub Mouse_Event Lib "user32" (ByVal dwFlags As Int32, ByVal dx As Int32, ByVal dy As Int32, ByVal cButtons As Int32, ByVal dwExtraInfo As Int32)

(繼續閱讀...)

colud77 發表在 痞客邦 留言(0) 人氣()

1.當滑鼠移到控制項的時候會跳出一個小視窗。
 
2.VB.Net提供了更多的ToolTip的方法及屬性
System.Windows.Forms.ToolTip 類別：表示小矩形快顯視窗 (Pop-Up Window)，它會在使用者將指標停留在控制項上時，顯示控制項用途的簡短說明。

(繼續閱讀...)

colud77 發表在 痞客邦 留言(0) 人氣()

.NET程式的記憶體用量一直以來都是程式設計師所關注的焦點。因為.NET程式必需載入.NET Framework的關係，記憶體用量動輒就至少10MB以上。
對於觀察敏銳的人來說，相信應該都有注意到某個奇特的現象，那就是當我們把程式視窗縮小至工具列時，記憶體就會驟減。

(繼續閱讀...)

colud77 發表在 痞客邦 留言(1) 人氣()

'如何在表單靠近視窗桌面上下左右時，自動貼齊邊緣
'在控制項移動時會觸發 Move 事件中，因此我們在 Control.Move 事件 中去判斷目前表單座標是否貼近邊緣，當貼近邊緣時就自動貼齊
Public Class Form1
    Const iThreshold = 10
    Private Sub Form1_Move(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Move

(繼續閱讀...)

colud77 發表在 痞客邦 留言(0) 人氣()

1.設定 Enum
Public Enum DBTypeEnum As Int32
    SQLSERVER = 100
    ORACLE = 300
    SYBASE = 400

(繼續閱讀...)

colud77 發表在 痞客邦 留言(0) 人氣()

'次數迴圈
Module TestForNext
    Public Sub Main()
        '定義區域變數
        Dim i1 As Int32

(繼續閱讀...)

colud77 發表在 痞客邦 留言(0) 人氣()

Imports System.Text
Public Class Form1
    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        textBox2.Text = IsEncryptString(textBox1.Text, 10, True)
    End Sub

(繼續閱讀...)

colud77 發表在 痞客邦 留言(0) 人氣()