20 มิถุนายน 2557

Array และ InArray ใน VB.NET

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Return Index Of Array
        Dim numbers As String() = {"aaa", "bbb", "ccc"}
        MsgBox(numbers.ToList().FindIndex(Function(x) x = "bbb")) 'Case Found
        'MsgBox(numbers.ToList().FindIndex(Function(x) x = "zzz")) 'Case Not Found
        Dim index As Integer = Array.IndexOf(numbers, "ccc")

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim source As String = "111,222,333,444"
        Dim myarray() As String = Split(source, ",")
        MsgBox(myarray(1))
    End Sub

    Public Function InArray(ByVal myArray As String(), ByVal ValueTocheck As String)
        If (myArray.ToList().FindIndex(Function(x) x = ValueTocheck)) = -1 Then
            Return False
        Else
            Return True
        End If
    End Function

    Private Sub btnCheckInArray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckInArray.Click
        Dim arr1 As String() = {"rrr", "ssss", "ttttt"}
        MsgBox(InArray(arr1, "tt"))
    End Sub

End Class

เปลี่ยนสี Datagridview เมื่อ ไม่ได้รับ focus และ focus ใหม่ (VB.NET)

    Private Sub Datagridview1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Datagridview1.GotFocus
        'Datagridview1.DefaultCellStyle.SelectionBackColor = Color.DarkCyan
        Datagridview1.DefaultCellStyle.SelectionBackColor = Color.DeepSkyBlue
    End Sub

    Private Sub Datagridview1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Datagridview1.LostFocus
        Datagridview1.DefaultCellStyle.SelectionBackColor = Color.Gray
    End Sub

17 มิถุนายน 2557

แก้ปัญหา Cell / Row (แถว) ยืด เมื่อพิมพ์เอกาสร Excel 2007 Up

ปัญหาเกิดจากการแปลงเอกสาร .xls เป็น .xlsx ดังนั้นให้ใช้วิธีนี้ครับ
เปิดเอกสารที่ต้องการปรับ คัดลอกข้อความทั้งหมดใน sheet นั้น
สร้างเอกสารใหม่ คลิกขวาที่เซลล์แรก-> วางแบบพิเศษ -> ค่า
จากนั้นจัดรูปแบบก่อน แล้วค่อยพิมพ์ครับ

วิธีนี้ถือว่ายากแต่เราจะเอาไปใช้งานในอนาคตครับ
มีวิธีง่ายกว่านี้ที่นี่ครับ http://answers.microsoft.com/th-th/office/forum/office_2010-excel/excel-2010-preview/f9d261b0-8b7a-47eb-be3d-dd360efee5f8

13 มิถุนายน 2557

การสร้าง Like Post ในเว็บบอร์ดของเราให้เหมือนกับ Facebook (PHP)

<?php

// Example 1

$field_like_this_post  = 'user1 user2 user3 user4 user5 user6';

$users_like_this_post = explode(' ',$field_like_this_post  );

$now_user='user31';

if (in_array($now_user, $users_like_this_post)) {

echo 'Your And '.(count($users_like_this_post)-1).' People Liked This Post';

}

else

{

echo (count($users_like_this_post)-1).' People Liked This Post ';

echo '<a href="?like=Like">Like This Post';

}

?>

เป็นเพียงแค่แนวคิดเพื่อเอาไปปรับเปลี่ยนเองนะครับ

การส่งค่า Tab เมื่อกด Enter ใน Textbox (VB.NET)


Public Class Form1
Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles _
TextBox1.KeyUp, TextBox2.KeyUp, TextBox3.KeyUp, TextBox4.KeyUp '<---Handless Textbox1 to 4 Keyup Event
If e.KeyCode = Keys.Enter Then
SendKeys.Send("{TAB}")
End If
End Sub
End Class

12 มิถุนายน 2557

วิธีทำให้ Object ขยายตามฟอร์มโดยไม่ต้องเขียนโค้ด (VB.NET)

คลิกขวาที่ Object >Properties>Anchor เลือกตำแหน่งที่ต้องการให้วัตถุจับ (ดูภาพ)

10 มิถุนายน 2557

ฟังก์ชั่น Get DateTime จาก Server (VB.NET+MS SQL)

Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.Odbc
Public Class Form1

    Public Function ServerTime()
        On Error Resume Next
        Dim myTime As Date
        Dim conn As New OdbcConnection
        conn.ConnectionString = strConnectionString
        conn.Open()
        Dim cmd As New OdbcCommand("SELECT GETDATE() AS CurrentDateTime", conn)
        Dim rs As OdbcDataReader
        rs = cmd.ExecuteReader()
        Dim i As Integer = 0
        While rs.Read
            myTime = rs("CurrentDateTime")
        End While
        Return myTime
        Exit Function
    End Function

end Class

09 มิถุนายน 2557

วิธีไปยังบรรทัดสุดท้าย DataGridView (VB.NET)

   Private Sub GoToLastRow(ByVal dg As DataGridView)
        Dim last As Integer
        last = dg.Rows.Count - 1
        dg.CurrentCell = dg(0, last)
    End Sub
วิธีใช้
GoToLastRow(Datagridview1)

วิธีแก้ Error: Saving Changes Not Permitted

ไปที่ Tools -> Options -> Designers -> Table and Database Designers->
uncheck ที่ Privent saving changes that requiretable re-creation

04 มิถุนายน 2557

โค้ดสำหรับส่งค่า Tab เมื่อกดปุ่ม Enter (HTML+AJAX)

<!DOCTYPE html>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<title> Next Tab DEMO</title>
<script type='text/javascript' src='https://ajax.googleapis.com/ajax/libs/jquery/1.7.2/jquery.min.js'></script>
<script type='text/javascript'>//<![CDATA[
$(window).load(function(){
$(document).on("keypress", ".TabOnEnter" , function(e)
{
//Only do something when the user presses enter
if( e.keyCode == 13 )
{
var nextElement = $('input[tabindex="' + (this.tabIndex+1) + '"]');

if(nextElement.length )
nextElement.focus();
else
$('input[tabindex="1"]').focus();

}
});
});//]]>
</script>
</head>
<body>
AAA:<input id="AAA" class='TabOnEnter' tabindex="1" autofocus/><br>
BBB:<input id="BBB" class='TabOnEnter' tabindex="2" /><br>
CCC:<input id="CCC" class='TabOnEnter' tabindex="3" /><br>
DDD:<input id="DDD" class='TabOnEnter' tabindex="4" /><br>
</body>
</html>

เครดิต: http://jsfiddle.net/konijn_gmail_com/WvHKA/

วิธี Setfocus ให้ textbox เหมือนกับ google เมื่อเปิด url (HTML)

สังเกตุใหมครับว่าเมื่อเราเปิด google ขึ้นมา cursor จะมาพร้อมอยู่ที่ textbox เพื่อให้เราพิมพ์ได้เลย วิธีทำดังนี้ครับ
 <input type="text" name="search" autofocus>
ส่วนวิธีกำหนด Tabindex ดังนี้ครับ
FirstName: <input name="firstname" tabindex="1" autofocus>
Lastname: <input name="lastname" tabindex="2" >
tel: <input name="tel" tabindex="3"