Now, I'm looking for e-books those have details about "OO Design Pattern for VB.NET and C#".
I need to know in-deep for that. Today I'm downloading some e-books included
- Addison Wesley-Gang Of Four-Design Patterns, Elements Of Reusable Object Oriented Software
- Addison Wesley Design Patterns Elements of Reusable Object Oriented Software by GOF.RUS
- C# - Addison Wesley - Gang of Four - Design Patterns, Elements of Reusable Object Oriented Software
I don't know its have contexts I need. But if I have more details about OO Design Patterns, I will let you know.
P.S. on next month, I plan to exam for MCPD by upgrade from MCSD.NET before it expire on next year.
<html>ผลลัพท์ เมื่อนำเมาส์ไปวางบน [?] จะขึ้น popup help text ขึ้นมาให้
<head>
<title>การแสดงกล่องข้อความแนะนำ</title>
<style type="text/css">
#hintBox{
position:absolute;
top:0;
background-color:white;
width:150px;
padding:3px;
border:1px solid black;
font:normal 11px Verdana;
line-height:18px;
z-index:100;
border-right:3px solid black;
border-bottom:3px solid black;
visibility: hidden;
}
.hint {
font-weith:bold;
color:navy;
margin:3px 8px;
}
</style>
<script language="javascript">
var horizontalOffset = "9px"
var verticalOffset = "0"
var ie = document.all
var ns6 = document.getElementById && !document.all
function getposOffset(elm, offsettype) {
var totalOffset = (offsettype == "left") ? elm.offsetLeft:elm.offsetTop;
var parentElement = elm.offsetParent;
while (parentElement != null) {
totalOffset = (offsettype == "left") ? totalOffset + parentElement.offsetLeft:totalOffset + parentElement.offsetTop;
parentElement = parentElement.offsetParent;
}
return totalOffset;
}
function ieTest() {
return(document.compatMode && document.compatMode != "BackCompat") ? document.documentElement:document.body;
}
function clearEdge(obj, whichedge) {
var edgeoffset = (whichedge == "rightedge") ? parseInt(horizontalOffset)*-1 : parseInt(verticalOffset)*-1
if (whichedge == "rightedge") {
var windowEdge = ie && !window.opera ? ieTest().scrollLeft + ieTest().clientWidth - 30 : window.pageXOffset + window.innerWidth - 30;
dropMenu.contentMeasure = dropMenu.offsetWidth;
if(windowEdge - dropMenu.x < dropMenu.contentMeasure)
edgeoffset = dropMenu.contentMeasure + obj.offsetWidth + parseInt(horizontalOffset);
}
else {
var windowEdge = ie && !window.opera ? ieTest().scrollTop + ieTest().clientHeight - 30 : window.pageYOffset + window.innerHeight - 30;
dropMenu.contentMeasure = dropMenu.offsetHeight;
if(windowEdge - dropMenu.y < dropMenu.contentMeasure)
edgeoffset = dropMenu.contentMeasure - obj.offsetHeight;
}
return edgeoffset;
}
function showhint(menuContent, obj, e, tipwidth){
if((ie||ns6) && document.getElementById("hintBox")) {
dropMenu = document.getElementById("hintBox");
dropMenu.innerHTML = menuContent;
dropMenu.x = getposOffset(obj, "left");
dropMenu.y = getposOffset(obj, "top");
dropMenu.style.left = dropMenu.x - clearEdge(obj, "rightedge") + obj.offsetWidth + "px";
dropMenu.style.top = dropMenu.y - clearEdge(obj, "bottomedge") + "px";
dropMenu.style.visibility = "visible";
obj.onmouseout = hideHint;
}
}
function hideHint(e) {
dropMenu.style.visibility = "hidden";
}
function createHint() {
var block = document.createElement("div");
document.body.appendChild(block);
block.setAttribute("id","hintBox");
}
if(window.addEventListener)
window.addEventListener("load", createHint, false);
else if(window.attachEvent)
window.attachEvent("onload", createHint);
else if(document.getElementById)
window.onload = createHint;
</script>
</head>
<body>
<form>
<b>ชื่อในการใช้งาน</b>
<input type="text" class="test" style="width: 152px" /><a href="#" class="hint" onmouseover=" showhint('พิมพ์ชื่อผู้ใช้ โดยให้เป็นอักขระจากแป้นพิมพ์เท่านี้น', this, event, '150px')"><font color="#6666FF">[?]</font></a><br />
<b>รหัสผ่าน</b><input type="text" class="test" /><a href="#" class="hint" onmouseover=" showhint('ใส่รหัสผ่าน โดยมีอย่างน้อย 8 ตัวอักษร', this, event, '200px')"><font color="#6666FF">[?]</font></a><br />
<br/>
<b>e-mail address</b><input type="text" class="test" style="width: 152px" ID="Text1" NAME="Text1" onmouseover=" showhint('กรุณาใส่ e-mail address', this, event, '200px')"/>
</form>
</body>
</html>
หรือเมื่อนำเมาส์ไปวางบน text box ของ e-mail address ก็จะขึ้น popup help text ขึ้นมาให้เช่นกัน 
** แก้ไข 12/5/2014 ปรับปรุงไฟล์รูปภาพ **( ดาวน์โหลดซอร์สโค้ดได้ที่ https://github.com/noomdev/ThaiBaht )
Public Shared Function ThaiBaht(ByVal pAmount As Double) As String
If pAmount = 0 Then
Return "ศูนย์บาทถ้วน"
End If
Dim _integerValue As String ' จำนวนเต็ม
Dim _decimalValue As String ' ทศนิยม
Dim _integerTranslatedText As String ' จำนวนเต็ม ภาษาไทย
Dim _decimalTranslatedText As String ' ทศนิยมภาษาไทย
_integerValue = Format(pAmount, "####.00") ' จัด Format ค่าเงินเป็นตัวเลข 2 หลัก
_decimalValue = Mid(_integerValue, Len(_integerValue) - 1, 2) ' ทศนิยม
_integerValue = Mid(_integerValue, 1, Len(_integerValue) - 3) ' จำนวนเต็ม
' แปลง จำนวนเต็ม เป็น ภาษาไทย
_integerTranslatedText = NumberToText(CDbl(_integerValue))
' แปลง ทศนิยม เป็น ภาษาไทย
If CDbl(_decimalValue) = 0 Then
_decimalTranslatedText = NumberToText(CDbl(_decimalValue))
Else
_decimalTranslatedText = ""
End If
' ถ้าไม่มีทศนิม
If _decimalTranslatedText.Trim = "" Then
_integerTranslatedText += "บาทถ้วน"
Else
_integerTranslatedText += "บาท" & _decimalTranslatedText & "สตางค์"
End If
Return _integerTranslatedText
End Function
Private Shared Function NumberToText(ByVal pAmount As Double) As String
' ตัวอักษร
Dim _numberText() As String = {"", "หนึ่ง", "สอง", "สาม", "สี่", "ห้า", "หก", "เจ็ด", "แปด", "เก้า", "สิบ"}
' หลัก หน่วย สิบ ร้อย พัน ...
Dim _digit() As String = {"", "สิบ", "ร้อย", "พัน", "หมื่น", "แสน", "ล้าน"}
Dim _value As String, _aWord As String, _text As String
Dim _numberTranslatedText As String = ""
Dim _length, _digitPosition As Integer
_value = pAmount.ToString
_length = Len(_value) ' ขนาดของ ข้อมูลที่ต้องการแปลง เช่น 122200 มีขนาด เท่ากับ 6
For i As Integer = 0 To _length - 1 ' วนลูป เริ่มจาก 0 จนถึง (ขนาด - 1)
' ตำแหน่งของ หลัก (digit) ของตัวเลข
' เช่น
' ตำแหน่งหลักที่0 (หลักหน่วย)
' ตำแหน่งหลักที่1 (หลักสิบ)
' ตำแหน่งหลักที่2 (หลักร้อย)
' ถ้าเป็นข้อมูล i = 7 ตำแหน่งหลักจะเท่ากับ 1 (หลักสิบ)
' ถ้าเป็นข้อมูล i = 9 ตำแหน่งหลักจะเท่ากับ 3 (หลักพัน)
' ถ้าเป็นข้อมูล i = 13 ตำแหน่งหลักจะเท่ากับ 1 (หลักสิบ)
_digitPosition = i - (6 * ((i - 1) \ 6))
_aWord = Mid(_value, Len(_value) - i, 1)
_text = ""
Select Case _digitPosition
Case 0 ' หลักหน่วย
If _aWord = "1" And _length > 1 Then
' ถ้าเป็นเลข 1 และมีขนาดมากกว่า 1 ให้มีค่าเท่ากับ "เอ็ด"
_text = "เอ็ด"
ElseIf _aWord <> "0" Then
' ถ้าไม่ใช่เลข 0 ให้หา ตัวอักษร ใน _numberText()
_text = _numberText(CInt(_aWord))
End If
Case 1 ' หลักสิบ
If _aWord = "1" Then
' ถ้าเป็นเลข 1 ไม่ต้องมี ตัวอักษร อื่นอีก นอกจากคำว่า "สิบ"
'_numberTranslatedText = "สิบ" + _numberTranslatedText
_text = _digit(_digitPosition)
ElseIf _aWord = "2" Then
' ถ้าเป็นเลข 2 ให้ตัวอักษรคือ "ยี่สิบ"
_text = "ยี่" + _digit(_digitPosition)
ElseIf _aWord <> "0" Then
' ถ้าไม่ใช่เลข 0 ให้หา ตัวอักษร ใน _numberText() และหาหลัก(digit) ใน _digit()
_text = _numberText(CInt(_aWord)) + _digit(_digitPosition)
End If
Case 2, 3, 4, 5 ' หลักร้อย ถึง แสน
If _aWord <> "0" Then
_text = _numberText(CInt(_aWord)) + _digit(_digitPosition)
End If
Case 6 ' หลักล้าน
If _aWord = "0" Then
_text = "ล้าน"
ElseIf _aWord = "1" And _length - 1 > i Then
_text = "เอ็ดล้าน"
Else
_text = _numberText(CInt(_aWord)) + _digit(_digitPosition)
End If
End Select
_numberTranslatedText = _text + _numberTranslatedText
Next
Return _numberTranslatedText
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show(Sample.ThaiBaht(TextBox1.Text))
End Sub
