伊のspace～芳香精油＊美容保養＊程式設計

C#

textbox1.SelectionStart = textbox1.Text.Length; 
textbox1.ScrollToCaret(); 
textbox1.Refresh();

VB

textbox1.SelectionStart = textbox1.Text.Length
textbox1.ScrollToCaret()
textbox1.Refresh()

C#

[DllImport("mpr.dll", EntryPoint = "WNetAddConnectionA", CharSet = CharSet.Ansi, SetLastError = true, ExactSpelling = true)]
public static extern long WNetAddConnection(string lpszNetPath, string lpszPassword, string lpszLocalName);

[DllImport("mpr.dll", EntryPoint = "WNetCancelConnectionA", CharSet = CharSet.Ansi, SetLastError = true, ExactSpelling = true)]
public static extern long WNetCancelConnection(string lpszName, long bForce);

//無密碼可傳空字串
public long AddConnection(string 路徑, string 登入密碼, string 磁碟機代號)
{
    try
    {
        return WNetAddConnection(路徑, 登入密碼, 磁碟機代號);
    }
    catch (Exception ex)
    {
        DebugMsg(ex.Message.ToString());
        return 0;
    }
}

//Force: 0 如有檔案開啟中則傳回ERROR_OPEN_FILES, 1 強制關閉
//ERROR_OPEN_FILES: There are open files, and the fForce parameter is FALSE.
public long CancelConnection(string 磁碟機代號, int Force)
{
    try
    {
        return WNetCancelConnection(磁碟機代號, Force);
    }
    catch (Exception ex)
    {
        DebugMsg(ex.Message.ToString());
        return 0;
    }
}

VB

Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" _
(ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName _
As String) As Long

Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" _
(ByVal lpszName As String, ByVal bForce As Long) As Long

Function AddConnection(ByVal 路徑 As String, ByVal 登入密碼 As String, ByVal 磁碟機代號 As String) As Long
    Try
        Return WNetAddConnection(路徑, 登入密碼, 磁碟機代號)
    Catch ex As Exception
        DebugMsg(ex.Message.ToString())
    End Try
End Function

Function CancelConnection(ByVal 磁碟機代號 As String, ByVal Force As Integer) As Long
    Try
        Return WNetCancelConnection(磁碟機代號, Force)
    Catch ex As Exception
        DebugMsg(ex.Message.ToString())
    End Try
End Function

C#

//宣告: 型別[] 變數名稱 = { 陣列內容1, 陣列內容2, 陣列內容3, 陣列內容4 ... };
string[] LocalNameList = { "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V" };

//巡覽1 foreach
foreach (string _event in LocalNameList)
{
    textbox1.text = _event;
}

//巡覽2 for
for (i = 0; i < LocalNameList.Length; i++)
{
    textbox1.text = LocalNameList[i];
}

//排序   使用Array.Sort ( , )    
//範例: 
//依檔名排序 = _event.Name;
//or 
//依檔案最後修改的日期時間 = _event.LastWriteTime.ToString()
private FileInfo[] SortFiles(FileInfo[] files)
{
    int array_length = files.Length;
    string[] sort_key = new string[array_length];

    foreach (FileInfo _event in files)
    {
        sort_key[0] = _event.Name; //依檔名
        //sort_key[0] = _event.LastWriteTime.ToString(); //依檔案最後修改的日期時間
    }

    Array.Sort(sort_key, files); //由小到大排序
    Array.Reverse(files); //反轉 由大到小排序

    return files;
}

//陣列Function的宣告
//類型 型別[] 名稱(參數...) 
private FileInfo[] SortFiles(FileInfo[] files)
{
    return files;
}

VB

'宣告: Dim 變數名稱() As 型別 = { 陣列內容1, 陣列內容2, 陣列內容3, 陣列內容4 ... }
Dim LocalNameList() As String = {"G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V"}

'巡覽1 For Each
For Each _event As String In LocalNameList
    textbox1.text = _event 
Next

'巡覽2 For
For i = 0 To LocalNameList.Length - 1
    textbox1.text = LocalNameList(i)
Next

'排序   使用Array.Sort ( , )    
'範例: 
'依檔名排序 = _event.Name;
'or 
'依檔案最後修改的日期時間 = _event.LastWriteTime.ToString()
Private Function SortFiles(ByVal files As FileInfo()) As FileInfo()
    Dim array_length As Integer = files.GetUpperBound(0)
    Dim sort_key(array_length) As String

    For Each dir As FileInfo In files
        sort_key(0) = dir.Name '依檔名
        'sort_key(0) = dir.LastWriteTime.ToString '依檔案最後修改的日期時間
    Next

    Array.Sort(sort_key, files) '由小到大排序
    Array.Reverse(files) '反轉 由大到小排序

    Return files
End Function

'陣列Function的宣告
'類型 Function 名稱(參數...) As 型別() 
Private Function SortFiles(ByVal files As FileInfo()) As FileInfo()
    Return files
End Function

看到小康DM，有Nature’s Gate洗髮精的特價，每日草本植萃洗髮精 532mL / 茶樹舒緩洗髮精 532mL，一瓶只要229元。

所以想去買一瓶回家試試看~~(結果沒進貨...什麼鬼)

以下有6款歐巴拉朵洗髮精心得，先說一下我的髮質：粗硬髮、有自然捲、有離子燙、髮量多。
我的心得是沒有使用 潤髮乳/護髮乳 的使用感受，這系列的洗髮精應該都是無矽靈的(標籤沒有明確標示)，建議使用後可以搭配潤髮乳/護髮乳。


★忍冬洗髮精

每個月生理期總有幾天不能飲酒、K歌、吃辛辣食物……但你知道這段時間其實是女人的變美期嗎？豐胸、燃脂、提高記憶力、排毒等平時很難做到的事，在這個黃金期裏都能輕易達成。　　  
 
 
   
　　女人一生會經歷400多次月經，每次2-8天不等。如此算下來，女人一生的1/10都在和生理期糾纏不清。痛經、情緒激動等雖然都是月經惹的禍，但專家提醒：“月經期間，在腦垂體激素控制下，女性體內雌激素和孕激素分泌量下降，這是個很精妙的生理調整過程，這段時間內，豐胸、收腹等一連串平時讓你頭痛的事都能輕鬆達成！”