歡迎有興趣(需求者)來信.來電詢問:
信箱: wushig@gmail.com
電話: 0931-507058 巫先生
邏輯等於0與1和ON與OFF,是程式創作的思維. 如何利用創作來支援生活面呢? 唯有.. 一直努力在程式領域上突破及更新自我;更是要有失敗的心情準備!! 聯絡方式 LINE ID : wushig (池龍工作室) 0931507058 巫先生
2012年8月30日 星期四
超好用的會計系統,等您來試用
會計系統下載網址: http://erp.myvnc.com/?page_id=22
歡迎有問題來信.來電詢問:
信箱: wushig@gmail.com
電話: 0931-507058 巫先生
釋放記憶體
GC.Collect(); //下面這行是重點 GC.WaitForPendingFinalizers();
或採用 Windows API [C#][VB.NET]壓縮.NET程式的記憶體用量
這招好像不錯喔,有空來試試看!
底下有更好的範例:引用來源:your VB .NET App taking up too much memory??
Public Class MemoryManagement
Private Declare Function SetProcessWorkingSetSize Lib "kernel32.dll" ( _
ByVal process As IntPtr, _
ByVal minimumWorkingSetSize As Integer, _
ByVal maximumWorkingSetSize As Integer) As Integer
Public Shared Sub FlushMemory()
GC.Collect()
GC.WaitForPendingFinalizers()
If (Environment.OSVersion.Platform = PlatformID.Win32NT) Then
SetProcessWorkingSetSize(Process.GetCurrentProcess().Handle, -1, -1)
End If
End Sub
End Class
2012年8月29日 星期三
2012年8月28日 星期二
魚中魚 各門市地址,電話
好寶貝寵物用品
--
台中市
魚中魚-北屯店
台中市北屯區文心路4段319號 04-22478866
喜樂蒂犬貓美容坊
台中市北屯區松竹路2段125號 04-22492626
AI-GO寵物工廠
台中市北屯區松竹路3段49號 04-22491861
老地方寵物生活館
台中市北區文昌東三街27號 04-22371405
真愛名犬
台中市西屯區逢甲路73號 04-24256229
花骨頭時尚寵物沙龍
台中市西區美村路一段302-1號1樓 04-23011822
神辰寵物店
台中市西區美春路一段237號 04-23028119
魚中魚-南屯店
台中市南屯區五權西路二段80號 04-24732266
幸福寵物工坊
台中市南屯區文新南五路323-6號 04-24714425
元氣屋寵物精品館
台中市南區光輝街52巷10號 04-23762151
--
台中市
魚中魚-北屯店
台中市北屯區文心路4段319號 04-22478866
喜樂蒂犬貓美容坊
台中市北屯區松竹路2段125號 04-22492626
AI-GO寵物工廠
台中市北屯區松竹路3段49號 04-22491861
老地方寵物生活館
台中市北區文昌東三街27號 04-22371405
真愛名犬
台中市西屯區逢甲路73號 04-24256229
花骨頭時尚寵物沙龍
台中市西區美村路一段302-1號1樓 04-23011822
神辰寵物店
台中市西區美春路一段237號 04-23028119
魚中魚-南屯店
台中市南屯區五權西路二段80號 04-24732266
幸福寵物工坊
台中市南屯區文新南五路323-6號 04-24714425
元氣屋寵物精品館
台中市南區光輝街52巷10號 04-23762151
CrystalReport 可轉發元件安裝 (vs 2005)
元件位置：
Visual Studio 2005 下路徑
CRRedist2005_x86.msi
C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\BootStrapper\Packages\CrystalReports
C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\BootStrapper\Packages\CrystalReports\zh-cht
CRRedist2005_X64.msi
C:\Program Files\Microsoft Visual Studio 8\Crystal Reports\CRRedist\X64
C:\Program Files\Microsoft Visual Studio 8\Crystal Reports\CRRedist\X64\1028
2012年8月27日 星期一
Windows XP Shutdown指令介紹
Windows XP 的關機是由 Shutdown.exe 程式來控制的，位於 Windows\System32 資料夾中。
比如你的電腦要在 22:00關機，可以選擇 "開始→執行"，輸入 "at 22:00 Shutdown -s"，這樣，到了 22:00 電腦就會出現 "系統關機" 的對話框，預設有 30 秒的倒數計時並提示你儲存工作。
如果你想以倒數計時的方式關機，可以輸入 "Shutdown.exe -s -t 3600"，這裡表示 60 分後自動關機，"3600" 代表 60 分鐘。
設定好自動關機後，如果想取消的話，可以在執行中輸入 "shutdown -a"。
另外輸入 "shutdown -i"，則可以打開設定自動關機對話框，對自動關機進行設定。
Shutdown.exe 的參數，每個都具有特定的用途，執行每一個都會產生不同的效果，比如 "-s" 就表示關閉本機電腦，"-a" 表示取消關機操作，下面列出了更多參數，大家可以在 Shutdown.exe 中按需求使用。
指令：
-s：關機
-a：表示取消關機操作
-f：強制關閉應用程式
-m \\ 電腦名稱：控制遠端電腦
-i：顯示圖形用戶界面，但必須是 Shutdown 的第一個選項
-l：登出當前用戶
-r：重新開機
-t 時間：設定關機倒數計時
-c "訊息內容"： 輸入關機對話框中的訊息內容
-?： 指令提示
2012年8月26日 星期日
Visual Studio 2012 新增的功能
Visual Studio 2012 下載
參考引用來源
--
三大關鍵功能 因應行動裝置及雲端運算開發
1. Windows 8 Metro Style App的唯一開發工具
2. HTML5 開發最強利器，橫跨各行動平台
3. Scrum 敏捷開發，加速App改版並強化品質
詳細還是要依微軟的為主唷!
參考引用來源
--
三大關鍵功能 因應行動裝置及雲端運算開發
1. Windows 8 Metro Style App的唯一開發工具
2. HTML5 開發最強利器，橫跨各行動平台
3. Scrum 敏捷開發，加速App改版並強化品質
詳細還是要依微軟的為主唷!
2012年8月23日 星期四
2012年8月22日 星期三
花朵數目的意義
花朵數目的意義
1 對你情有獨鍾
2 眼中世界只有我倆
3 甜蜜戀情愛在心底
4 山盟海誓
5 無怨無悔
6 願你一切順利
7 無盡的祝福
8 深深歉意你原諒
9 永久的擁有
10 完美的愛情
11 愛情
12 每日思念對方
13 你是我暗戀中的人
17 讓我們的愛到此為止
20 永遠愛你此情不渝
22 兩情相悅．．你濃我濃．．
33 深情呼喚「我愛你」
36 浪漫心情全因有你
44 亙古不變的誓言你
50 這是無悔的愛
56 吾愛
66 情場順利（與你分離．．）
77 相逢自是有緣
88 用心彌補一切的錯
99 愛情無敵，友情長存
100 執汝之手，與汝偕老
101 你是我唯一的愛
108 嫁給我吧~
123 愛情自由
144 愛你日日月月生生世世
365 天天想你，天天愛你
999 天長地久，愛無止休
1,000 忠誠的愛，至死不渝
2012年8月21日 星期二
2012年8月20日 星期一
2012年8月17日 星期五
Datagridview cell background color
參考
--
DataGridView1.Item(ColumnIndex, RowIndex).Style.BackColor = Color
DataGridView1.Item(ColumnIndex, RowIndex).Style.ForeColor = Color
or
DataGridView1.CurrentCell.Style.BackColor = Color
DataGridView1.CurrentCell.Style.ForeColor = Color
--
DataGridView1.Item(ColumnIndex, RowIndex).Style.BackColor = Color
DataGridView1.Item(ColumnIndex, RowIndex).Style.ForeColor = Color
or
DataGridView1.CurrentCell.Style.BackColor = Color
DataGridView1.CurrentCell.Style.ForeColor = Color
2012年8月16日 星期四
2012年8月15日 星期三
vb6 取檔案所在路徑
參考來源
--
Private Sub Command1_Click()
Dim a As String
a = "c:\test.txt"
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetParentFolderName(a)
End Sub
--
Private Sub Command1_Click()
Dim a As String
a = "c:\test.txt"
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetParentFolderName(a)
End Sub
2012年8月14日 星期二
會計總帳管理系統 (財星會計系統)
會計總帳管理系統 (財星會計系統)
本系統簡化過往會計繁瑣的操作,輕鬆管理公司所有金流!
以往的傳票最是傷腦筋,要切幾張帳要怎切割等;本系統已將此簡化讓您不必加班來處理傳票問題了
在編輯上更是讓您拋棄過往的觀念,處理帳輕鬆就能完成!
歡迎有興趣的快來下載安裝試試看唷
2012年8月13日 星期一
2012年8月12日 星期日
Hide tab control pages
參考引用來源
--
真是好招式!! Good , 方法如下:
1.hide
Dim tab As TabPage = TabControl1.TabPages(x)
TabControl1.TabPages.Remove(tab)
2.unhid
TabControl1.TabPages.Add(tab)
tab = Nothing
--
真是好招式!! Good , 方法如下:
1.hide
Dim tab As TabPage = TabControl1.TabPages(x)
TabControl1.TabPages.Remove(tab)
2.unhid
TabControl1.TabPages.Add(tab)
tab = Nothing
2012年8月7日 星期二
VB.NET 取目錄下所有檔案(含多層目錄+檔案)
引用來源
--
Imports System.IO
'''
''' This class contains directory helper method(s).
'''
Public Class FileHelper
'''
''' This method starts at the specified directory, and traverses all subdirectories.
''' It returns a List of those directories.
'''
Public Shared Function GetFilesRecursive(ByVal initial As String) As List(Of String)
' This list stores the results.
Dim result As New List(Of String)
' This stack stores the directories to process.
Dim stack As New Stack(Of String)
' Add the initial directory
stack.Push(initial)
' Continue processing for each stacked directory
Do While (stack.Count > 0)
' Get top directory string
Dim dir As String = stack.Pop
Try
' Add all immediate file paths
result.AddRange(Directory.GetFiles(dir, "*.*"))
' Loop through all subdirectories and add them to the stack.
Dim directoryName As String
For Each directoryName In Directory.GetDirectories(dir)
stack.Push(directoryName)
Next
Catch ex As Exception
End Try
Loop
' Return the list
Return result
End Function
End Class
Module Module1
'''
''' Entry point that shows usage of recursive directory function.
'''
Sub Main()
' Get recursive List of all files starting in this directory.
Dim list As List(Of String) = FileHelper.GetFilesRecursive("C:\Users\Sam\Documents\Perls")
' Loop through and display each path.
For Each path In list
Console.WriteLine(path)
Next
' Write total number of paths found.
Console.WriteLine(list.Count)
End Sub
End Module
--
Imports System.IO
'''
''' This class contains directory helper method(s).
'''
Public Class FileHelper
'''
''' This method starts at the specified directory, and traverses all subdirectories.
''' It returns a List of those directories.
'''
Public Shared Function GetFilesRecursive(ByVal initial As String) As List(Of String)
' This list stores the results.
Dim result As New List(Of String)
' This stack stores the directories to process.
Dim stack As New Stack(Of String)
' Add the initial directory
stack.Push(initial)
' Continue processing for each stacked directory
Do While (stack.Count > 0)
' Get top directory string
Dim dir As String = stack.Pop
Try
' Add all immediate file paths
result.AddRange(Directory.GetFiles(dir, "*.*"))
' Loop through all subdirectories and add them to the stack.
Dim directoryName As String
For Each directoryName In Directory.GetDirectories(dir)
stack.Push(directoryName)
Next
Catch ex As Exception
End Try
Loop
' Return the list
Return result
End Function
End Class
Module Module1
'''
''' Entry point that shows usage of recursive directory function.
'''
Sub Main()
' Get recursive List of all files starting in this directory.
Dim list As List(Of String) = FileHelper.GetFilesRecursive("C:\Users\Sam\Documents\Perls")
' Loop through and display each path.
For Each path In list
Console.WriteLine(path)
Next
' Write total number of paths found.
Console.WriteLine(list.Count)
End Sub
End Module
2012年8月6日 星期一
2012年8月5日 星期日
Point Of Sale Apps
Point Of Sale Apps
哇,都是 Free 耶!
有興趣的,可參考看看唷!
free 項目:
1.Square Card Reader
2.GoPayment
3.Credit Card Machine
4.Credit Card Terminal
5.Phone Swipe – Credit Card Terminal
6.Pay Anywhere - Accept Credit Cards
7.Swipe Credit Card Terminal
8.iPay Mobile Point of Sale
9.Credit Card Processing Merchant Account
10.ChargeMe! - Accept Credit Cards Terminal
11.Accept Credit Cards
還有更多的 POS Apps 唷!!
哇,都是 Free 耶!
有興趣的,可參考看看唷!
free 項目:
1.Square Card Reader
2.GoPayment
3.Credit Card Machine
4.Credit Card Terminal
5.Phone Swipe – Credit Card Terminal
6.Pay Anywhere - Accept Credit Cards
7.Swipe Credit Card Terminal
8.iPay Mobile Point of Sale
9.Credit Card Processing Merchant Account
10.ChargeMe! - Accept Credit Cards Terminal
11.Accept Credit Cards
還有更多的 POS Apps 唷!!
2012年8月4日 星期六
HyperCam Free (32/64 bit)
HyperCam 是一套專門用來擷取您的操作畫面的程序，包括游標的移動軌跡與音效，然後將它儲存為標準的 AVI 視頻文件讓您播放。很適合用來製作教學課程或演示，您可以輕易地依照平常的操作方式，將步驟一步一步地擷取下來，只需將此 AVI 文件播放，即可觀看。
官網下載
官網下載
2012年8月3日 星期五
2012年8月1日 星期三
Read/Write to .ini files in vb.net
參考引用
--
The following module demonstrates how to access INI files from VB.Net. It also illustrates the use of
function overloading to allow different functionality from the same call by using different parameters:
Option Strict On
Module INIAccess
#Region "API Calls"
' standard API declarations for INI access
' changing only "As Long" to "As Int32" (As Integer would work also)
Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringW" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Int32
Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringW" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Int32, _
ByVal lpFileName As String) As Int32
#End Region
Public Overloads Function INIRead(ByVal INIPath As String, _
ByVal SectionName As String, ByVal KeyName As String, _
ByVal DefaultValue As String) As String
' primary version of call gets single value given all parameters
Dim n As Int32
Dim sData As String
sData = space$(1024) ' allocate some room
n = GetPrivateProfileString(SectionName, KeyName, DefaultValue, _
sData, sData.Length, INIPath)
If n > 0 Then ' return whatever it gave us
INIRead = sdata.Substring(0, n)
Else
iniread = ""
End If
End Function
#Region "INIRead Overloads"
Public Overloads Function INIRead(ByVal INIPath As String, _
ByVal SectionName As String, ByVal KeyName As String) As String
' overload 1 assumes zero-length default
Return INIRead(inipath, sectionname, KeyName, "")
End Function
Public Overloads Function INIRead(ByVal INIPath As String, _
ByVal SectionName As String) As String
' overload 2 returns all keys in a given section of the given file
Return INIRead(inipath, sectionname, Nothing, "")
End Function
Public Overloads Function INIRead(ByVal INIPath As String) As String
' overload 3 returns all section names given just path
Return INIRead(inipath, Nothing, Nothing, "")
End Function
#End Region
Public Sub INIWrite(ByVal INIPath As String, ByVal SectionName As String, _
ByVal KeyName As String, ByVal TheValue As String)
Call WritePrivateProfileString(SectionName, KeyName, TheValue, INIPath)
End Sub
Public Overloads Sub INIDelete(ByVal INIPath As String, ByVal SectionName As String, _
ByVal KeyName As String) ' delete single line from section
Call WritePrivateProfileString(SectionName, KeyName, Nothing, INIPath)
End Sub
Public Overloads Sub INIDelete(ByVal INIPath As String, ByVal SectionName As String)
' delete section from INI file
Call WritePrivateProfileString(SectionName, Nothing, Nothing, INIPath)
End Sub
End Module
The code to call this would run along these lines:
Dim sValue As String
Dim sPath As String
sPath = "testing.ini"
INIWrite(sPath, "Section1", "Key1-1", "Value1-1") ' build INI file
INIWrite(sPath, "Section1", "Key1-2", "Value1-2")
INIWrite(sPath, "Section1", "Key1-3", "Value1-3")
INIWrite(sPath, "Section2", "Key2-1", "Value2-1")
INIWrite(sPath, "Section2", "Key2-2", "Value2-2")
sValue = INIRead(sPath, "section2", "key2-1", "Unknown") ' specify all
MessageBox.Show(sValue, "section2/key2-1/unknown", MessageBoxButtons.OK)
sValue = INIRead(sPath, "section2", "XYZ", "Unknown") ' specify all
MessageBox.Show(sValue, "section2/xyz/unknown", MessageBoxButtons.OK)
sValue = INIRead(sPath, "section2", "XYZ") ' use zero-length string as default
MessageBox.Show(sValue, "section2/XYZ", MessageBoxButtons.OK)
sValue = INIRead(sPath, "section1") ' get all keys in section
sValue = sValue.Replace(ControlChars.NullChar, "|"c) ' change embedded NULLs to pipe chars
MessageBox.Show(sValue, "section1 pre delete", MessageBoxButtons.OK)
INIDelete(sPath, "section1", "key1-2") ' delete middle entry in section 1
sValue = INIRead(sPath, "section1") ' get all keys in section again
sValue = sValue.Replace(ControlChars.NullChar, "|"c) ' change embedded NULLs to pipe chars
MessageBox.Show(sValue, "section1 post delete", MessageBoxButtons.OK)
sValue = INIRead(sPath) ' get all section names
sValue = sValue.Replace(ControlChars.NullChar, "|"c) ' change embedded NULLs to pipe chars
MessageBox.Show(sValue, "All sections pre delete", MessageBoxButtons.OK)
INIDelete(sPath, "section1") ' delete section
sValue = INIRead(sPath) ' get all section names
sValue = sValue.Replace(ControlChars.NullChar, "|"c) ' change embedded NULLs to pipe chars
MessageBox.Show(sValue, "All sections post delete", MessageBoxButtons.OK)
--
The following module demonstrates how to access INI files from VB.Net. It also illustrates the use of
function overloading to allow different functionality from the same call by using different parameters:
Option Strict On
Module INIAccess
#Region "API Calls"
' standard API declarations for INI access
' changing only "As Long" to "As Int32" (As Integer would work also)
Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" _
Alias "WritePrivateProfileStringW" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpString As String, _
ByVal lpFileName As String) As Int32
Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
Alias "GetPrivateProfileStringW" (ByVal lpApplicationName As String, _
ByVal lpKeyName As String, ByVal lpDefault As String, _
ByVal lpReturnedString As String, ByVal nSize As Int32, _
ByVal lpFileName As String) As Int32
#End Region
Public Overloads Function INIRead(ByVal INIPath As String, _
ByVal SectionName As String, ByVal KeyName As String, _
ByVal DefaultValue As String) As String
' primary version of call gets single value given all parameters
Dim n As Int32
Dim sData As String
sData = space$(1024) ' allocate some room
n = GetPrivateProfileString(SectionName, KeyName, DefaultValue, _
sData, sData.Length, INIPath)
If n > 0 Then ' return whatever it gave us
INIRead = sdata.Substring(0, n)
Else
iniread = ""
End If
End Function
#Region "INIRead Overloads"
Public Overloads Function INIRead(ByVal INIPath As String, _
ByVal SectionName As String, ByVal KeyName As String) As String
' overload 1 assumes zero-length default
Return INIRead(inipath, sectionname, KeyName, "")
End Function
Public Overloads Function INIRead(ByVal INIPath As String, _
ByVal SectionName As String) As String
' overload 2 returns all keys in a given section of the given file
Return INIRead(inipath, sectionname, Nothing, "")
End Function
Public Overloads Function INIRead(ByVal INIPath As String) As String
' overload 3 returns all section names given just path
Return INIRead(inipath, Nothing, Nothing, "")
End Function
#End Region
Public Sub INIWrite(ByVal INIPath As String, ByVal SectionName As String, _
ByVal KeyName As String, ByVal TheValue As String)
Call WritePrivateProfileString(SectionName, KeyName, TheValue, INIPath)
End Sub
Public Overloads Sub INIDelete(ByVal INIPath As String, ByVal SectionName As String, _
ByVal KeyName As String) ' delete single line from section
Call WritePrivateProfileString(SectionName, KeyName, Nothing, INIPath)
End Sub
Public Overloads Sub INIDelete(ByVal INIPath As String, ByVal SectionName As String)
' delete section from INI file
Call WritePrivateProfileString(SectionName, Nothing, Nothing, INIPath)
End Sub
End Module
The code to call this would run along these lines:
Dim sValue As String
Dim sPath As String
sPath = "testing.ini"
INIWrite(sPath, "Section1", "Key1-1", "Value1-1") ' build INI file
INIWrite(sPath, "Section1", "Key1-2", "Value1-2")
INIWrite(sPath, "Section1", "Key1-3", "Value1-3")
INIWrite(sPath, "Section2", "Key2-1", "Value2-1")
INIWrite(sPath, "Section2", "Key2-2", "Value2-2")
sValue = INIRead(sPath, "section2", "key2-1", "Unknown") ' specify all
MessageBox.Show(sValue, "section2/key2-1/unknown", MessageBoxButtons.OK)
sValue = INIRead(sPath, "section2", "XYZ", "Unknown") ' specify all
MessageBox.Show(sValue, "section2/xyz/unknown", MessageBoxButtons.OK)
sValue = INIRead(sPath, "section2", "XYZ") ' use zero-length string as default
MessageBox.Show(sValue, "section2/XYZ", MessageBoxButtons.OK)
sValue = INIRead(sPath, "section1") ' get all keys in section
sValue = sValue.Replace(ControlChars.NullChar, "|"c) ' change embedded NULLs to pipe chars
MessageBox.Show(sValue, "section1 pre delete", MessageBoxButtons.OK)
INIDelete(sPath, "section1", "key1-2") ' delete middle entry in section 1
sValue = INIRead(sPath, "section1") ' get all keys in section again
sValue = sValue.Replace(ControlChars.NullChar, "|"c) ' change embedded NULLs to pipe chars
MessageBox.Show(sValue, "section1 post delete", MessageBoxButtons.OK)
sValue = INIRead(sPath) ' get all section names
sValue = sValue.Replace(ControlChars.NullChar, "|"c) ' change embedded NULLs to pipe chars
MessageBox.Show(sValue, "All sections pre delete", MessageBoxButtons.OK)
INIDelete(sPath, "section1") ' delete section
sValue = INIRead(sPath) ' get all section names
sValue = sValue.Replace(ControlChars.NullChar, "|"c) ' change embedded NULLs to pipe chars
MessageBox.Show(sValue, "All sections post delete", MessageBoxButtons.OK)
訂閱：
文章 (Atom)