我的記事簿

2015年7月4日星期六

VB.NET 將超長超寬圖片( PNG,JPG......)放到richtextbox1中

vb.net richtextbox
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim img As Image
img = Image.FromFile("C:\hsiao.png")
Clipboard.SetImage(img)
RichTextBox1.Paste()
'或Img = Image.FromFile(Application.StartupPath & "\images\test01.jpg")
'如要使用內部資源檔 img = My.Resources.hsiao

End Sub

**用paste()黏貼方式,如不是form_load而是用程式再加入圖形,原有圖片不會消失

如要取消原來圖面,可先清空richtextbox.text
原為
Clipboard.SetImage(img)
RichTextBox1.Paste()
改為
Clipboard.SetImage(img)
Richtextbox.text=""
RichTextBox1.Paste()

scrollbar both 的水平捲軸
除了要設定
Multiline=True
Scrollbar=Both'(有超出才顯示)Forcedboth(一定會顯示)卷軸
還有一個最容易忘的就是
WordWrap=False

vb.net 離開(關閉)

vb.net 離開(關閉)常用兩種

A. 離開(關閉)某一個form
me.close()

B. 整個程式都離開(關閉),即跳出程式
Application.exit()

2015年7月2日星期四

vb.net 指數標記法

987654("#0.0e0")-->98.8e4

1503.92311("0.0##e+00")-->1.504e+03

1.8901385E-16("0.0e+00")-->1.9e-16

例：

Alltext = ""
Alltext = Alltext & " 庫存資料 "
Alltext = "****I*******X(I)******Y(I)***"
RichTextBox1.Text = Alltext
For I = 1 To N
Alltext = Alltext & vbCrLf & " " & Format(I, "000")
Alltext = Alltext & " " & Format(X(I), "0.0####E+00")
Alltext = Alltext & " " & Format(Y(I), "0.0####E+00")
Next I
RichTextBox1.Text = Alltext
MsgBox("庫存資料顯示")

2015年6月26日星期五

Office 的幫助( F1......) 線上說明與離線說明切換

Office 的幫助( F1......) 內容詳細，學習方便

線上說明與離線說明切換

操作

點擊Office軟體右上角?或按F1就會顯視幫助視窗，Office內定是線上說明

點擊說明右端下拉式按鈕

選擇線上說明(本例為 Office.com 的 Access 的說明 )
或離線說明( 本例為您電腦的 Access 說明)
選擇您須要的即可

點擊您電腦的 Access 說明 (即離線說明)

2015年6月21日星期日

Access 中 Shift 與 Ctrl 連選與複選無動做

ACCESS

最近在Access2013 中用Shift 與 Ctrl 選資料表內容時不動做沒法連選與複選
Googe 一下也沒法找到資料
現試了幾個方法如下!!
1.如果有開是Caps Lock 鍵按下
是Caps Lock 鍵按下原因導致 Shift 與 Ctrl 選資料表內容時不動做；只要重新按一下
Caps Lock 鍵將其取消即可!!
2.可試將欄位清單任一資料移到視窗中後關閉即可!!

2015年6月20日星期六

W瓦數 A安培 V伏特三者之間的換算公式

直流電源 => Ｐ=Ｉ*Ｖ
交流電源 => Ｐ=Ｉ*Ｖ*COS(θ)

Ｐ[功率] 單位：Ｗ(瓦特)
Ｉ[電流] 單位：Ａ(安培)
Ｖ[電壓] 單位：Ｖ(伏特)
COS(θ)[電壓及電流之相位角]

線徑電流 NFB

AC電流負載使用NFB參考表
線徑	電流	NFB
1.6	15	15A
2	19	20A
3.5	19	20A
5.5	25	30A
8	35	40A
14	55	50A
22	70	75A
30	75	80A
38	85	100

線徑單位：mm

電流單位：A

NFB：無熔絲開關

2015年6月19日星期五

查看住家附近空氣品質

查看住家附近空氣品質

空氣品質監測網 - 即時細懸浮微粒指標

PSI

全國各地監測站 - 點我進入網頁

查台北市古亭監測站游標停一下即可看到 PSI 值

雙擊古亭監測站顯示如下；點擊基本資料

更詳細資料如下

另一個世界級的 (PM2.5，PM10，O3，NO2，SO2、、、、、)

http://www.aqicn.org

END

2015年6月12日星期五

vb.net 指令(手札)-基本的檔案存取

1.使用OpenFileDialog時
A. 開新檔CheckFileExists屬性要選False(也就是既開新檔無須檢查是否有檔存在)；
會顯示開(新檔)對話框，否則會顯示開(舊檔)對話框。
B. 開新檔CheckFileExists屬性要選True(也就是既開舊須檢查是否有檔存在)；
會顯示開(舊檔)對話框。

2015年6月10日星期三

超快搜尋工具

超快搜尋工具 Everything
真得很快 !!
http://www.voidtools.com/

好像沒法即時更新
關機後重開機
找舊檔一點問題都沒有 ! ! 有問題就是快 ! !

阿容福利味

小的安裝文件
清潔和簡單的用戶界面
快速文件索引
快速搜索
最小的資源使用情況
與他人輕鬆共享文件
實時更新

2015年6月6日星期六

vb.net 指令(手札)

vb.net 指令(手札)
1.*.sln / *.vbproj - 重新啟動VB.NET

2.格式 - 排版用也可鎖定控制項

3.SizeMode 屬性：
1. Normal：由控制項的左上角放起。
2. StretchImage：圖片隨控制項大小伸縮。
3. AutoImage：控制項隨圖片大小伸縮。
4. CenterImage：放在控制項的正中央。

4.end(關鍵字) - 終止程式執行

5.beep()

6.Rnd - 0~1的亂數

7.Cstr - 轉為字串

8.F5-偵錯(也有人說是開始執行)

9.簡繁Menu對照表

10. Sub From_Load - 雙擊 Form1外框即會產生

11.Randomize() - 為Rnd創建真正的隨機啟始點

12.DateTimePicker - 日期時間選取控件

13.System.Drawing.Image.FromFile - 讀取電腦資料
PictureBox1.Image = System.Drawing.Image.FromFile("c:\vb10sbs\chap03\Calcultr.bmp")

14.CheckBox1 - 使用 Sub CheckBox1_CheckedChanged

15.ListBox - 列表框 (這個用的比較少)
用法：
Select Case ListBox1.SelectedIndex
Case 0
PictureBox1.Image = System.Drawing.Image.FromFile("c:\vb10sbs\chap03\harddisk.bmp")
Case 1
PictureBox1.Image = System.Drawing.Image.FromFile("c:\vb10sbs\chap03\printer.bmp")
Case 2
PictureBox1.Image = System.Drawing.Image.FromFile("c:\vb10sbs\chap03\satedish.bmp")
End Select

'=============================================
'向列表框中添加列表項
ListBox1.Items.Add("Extra hard disk")
ListBox1.Items.Add("printer")
ListBox1.Items.Add("satellite disk")

16.LinkLabel1 - 瀏覽網頁
'通過將 LinkVisited 設置為 True 來改變鏈接的顏色
LinkLabel1.LinkVisited = True
'使用 Process.Start 方法打開默認瀏覽器
'使用雙 microsoft Press URL:
System.Diagnostics.Process.Start("http://www.microsoft.com/learning/books/")

17.Label 框尺寸大小設定
Label 內定AutoSize屬性為True要改False；其他就按一般正常調整。

18.Imports System.Math

上述計算在程式最頂端須先輸入
Imports System.Math

19.運算符號優先等級

20.MaskedTextBox - 設定遮罩
A. < 自訂 > 時要將使用Validating Type(U)勾勾取消
B. PasswordChar 只要輸入一個字元

21. 取得螢幕解析度
Dim Screen_X
Dim Screen_Y
Screen_X= Screen.PrimaryScreen Screen.PrimarBounds.Width
Screen_Y= Screen.PrimaryScreen Screen.PrimarBounds.Height
MessageBox.Show("螢幕解析度" & Screen_X & "X" & Screen_Y)

22. 取得工作區域大小（桌面大小）
Dim workarea_Hight As Integer
Dim workerarea_width As Integer
workarea_Hight = Screen.PrimaryScreen.WorkingArea.Width
workerarea_width = Screen.PrimaryScreen.WorkingArea.Height
MessageBox.Show("工作區域大小" & workerarea_width & "X" & workarea_Hight)

23.FormX置中
屬性中StartPosition 設定在CenterScreen

2015年6月4日星期四

VB/VBA中 Format 指令

2015年6月2日星期二

VB 的 print 在VB.net 使用法

在VB中使用print 方法在VB.NET 改用

例：
在RichTextBox1.Text中使用
dim alltext as string
alltext = ""
alltext = "標準螺栓長 =" & Str(m3) & " + " & Str(t14) & " * " & Str(m2) & " + 1.5 * " & m2 & " + " & t10 & " + " & t12 & " * 2 =" & tl
alltext = alltext & " 顯示完畢"
RichTextBox1.Text = alltext

訂閱：文章 (Atom)

2015年7月4日 星期六

2015年7月2日 星期四

2015年6月26日 星期五

2015年6月21日 星期日

2015年6月20日 星期六

2015年6月19日 星期五

2015年6月12日 星期五

2015年6月10日 星期三

2015年6月6日 星期六

2015年6月4日 星期四

2015年6月2日 星期二