2012年8月30日 星期四

安養老人照護中心-住民繳費管理系統







































































































































歡迎有興趣(需求者)來信.來電詢問:
信箱: wushig@gmail.com
電話: 0931-507058 巫先生

超好用的會計系統,等您來試用












會計系統下載網址:  http://erp.myvnc.com/?page_id=22

歡迎有問題來信.來電詢問:
信箱: wushig@gmail.com
電話: 0931-507058 巫先生

Chrome flash Player 版本啟用設定




Flash 官網手動更新 官網

flash 超多範例

flash片头之家
要學習 flash 要來看看喔 , 是真源碼唷!

W3Schools Home HTML5 Tutorial

w3schools HTML5 Tutorial

繁殖盒





WPF 範例教學

WPF 範例教學
 這是 點部洛的文章喔,可參考看看,還不錯

MSDN:應用程式範例 (WPF)

應用程式範例 (WPF)

论坛-ITPUB论坛-it168旗下专业技术社区

论坛-ITPUB论坛-it168旗下专业技术社区

WPF新手上路

WPF新手上路

MSDN:Windows desktop code samples

Windows desktop code samples
--
這個真棒!! 好多喔,可以好好進修學習一翻了!

釋放記憶體


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月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

crystal report 各版本的轉散發 下載

Crystal Reports v. 9.1 to CRVS2010 Runtime Distribution & Supported Operating Systems
--
從 9.1 ~ 13.02 的版本

VB.NET Crystal Reports for Beginners

VB.NET Crystal Reports for Beginners
--
非常簡單的教學,看一次就會使用 crystal report

Visual Studio 2003 SP1

Microsoft® Visual Studio® .NET™ 2003 Service Pack 1

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

DaniWeb 程式設計

DaniWeb
---
不錯喔,很多技術文章

Windows 系統記憶體使用上限

參考1
MSDN:Memory Limits for Windows Releases
 

SQL Server 2008 如何壓縮 .log 檔

請參考來源
--

sp_updatestats

請參考來源
--
已寫得很詳細了,可參考看看

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改版並強化品質

詳細還是要依微軟的為主唷!

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月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

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

電腦不難

電腦不難

有很多教學,可參考看看

撿股讚 - 台股分析

撿股讚 - 台股分析

ListView with progress bar

參考來源

Placing a TProgressBar into a TListView delphi 7

參考來源

將 progressbar 嵌入 listview

參考來源
--

2012年8月14日 星期二

會計總帳管理系統 (財星會計系統)


會計總帳管理系統 (財星會計系統)
本系統簡化過往會計繁瑣的操作,輕鬆管理公司所有金流!
以往的傳票最是傷腦筋,要切幾張帳要怎切割等;本系統已將此簡化讓您不必加班來處理傳票問題了
在編輯上更是讓您拋棄過往的觀念,處理帳輕鬆就能完成!
歡迎有興趣的快來下載安裝試試看唷

Android 開發

第三极 | 移动开发者 | Android开发 | iOS开发

很多Web教學 !

艾鍗學院 Blog - 台灣數位學習科技知識社群系統

艾鍗學院 Blog - 台灣數位學習科技知識社群系統
--
不錯
硬體+android 的設計

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

2012年8月11日 星期六

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

取檔案版本

用 System.Diagnostics.FileVersionInfo.GetVersionInfo() 來取得

2012年8月5日 星期日

MakePic 印章產生器

MakePic 印章產生器(重灌狂人)

官網:MakePiccom

 

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 唷!!

VM 安裝 Ubuntu

VirtualBox 4.1安裝Ubuntu 12.04
預覽 Ubuntu 12.04,最期待的作業系統!安裝設定篇
Windows下安裝VirtualBox(Ubuntu 10.10)

官網:VirtualBox 
   

2012年8月4日 星期六

How to: Add Rows to a DataTable

請參考MSDN
--
簡單又清楚喔! 看一次就知道怎用

HyperCam Free (32/64 bit)

HyperCam 是一套專門用來擷取您的操作畫面的程序,包括游標的移動軌跡與音效,然後將它儲存為標準的 AVI 視頻文件讓您播放。很適合用來製作教學課程或演示,您可以輕易地依照平常的操作方式,將步驟一步一步地擷取下來,只需將此 AVI 文件播放,即可觀看。

官網下載

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)

使用 Visual Basic .NET 關閉另一個應用程式

微軟:HOW TO:使用 Visual Basic .NET 關閉另一個應用程式