個人記事

原始來源  藍色小舖 的hunterpo  c＃

http://www.blueshop.com.tw/board/show.asp?subcde=BRD20100129155902S4A&fumcde=FUM20050124192253INM

vb.net 版本

    Dim MyUri As Uri = New Uri("http://www.google.com.tw/intl/en_com/images/logo_plain.png")
    Dim saveDir = "C:\"
    Dim fileName = "google.png"
    Dim savePath = saveDir + fileName

    Dim request As WebRequest = System.Net.WebRequest.Create(MyUri)
    Dim response As WebResponse = request.GetResponse()
    Dim Stream As Stream = response.GetResponseStream()
    Dim Myimg As Image = Image.FromStream(Stream)
    Myimg.Save(savePath)

一行解決

    RichTextLine = Regex.Split(RichTextBox2.Text, "\n").Length

如果你要計算 Textbox 只要把RichTExtbox 改掉就好

這兩三天上去官方看 感興趣任務，才發現官方把感興趣那邊改掉了

改成不能用類似按鍵精靈去作用，不過我還是有辦法解掉

這次把之前全部的程式 拆開 ，獨立出來 單項功能

一切簡化，且內定 感興趣對象是 「女性」

如果有女性使用者有需求對象男性的，我再加入功能

要不然就以這個為基本

===============
v1.1
修正一個登錄小錯誤

http://www2.zshare.ma/da0d66yk05oa

 v1.0

下載點（新版，去掉五次限制直接跑完35次）

 http://www2.zshare.ma/g78zznq1ht9n

至於極速版（不是很穩定），自己測試約跑到一半自動會停止並顯示跑完成，跑兩次顯示到35次，去到官方看～很正常的顯示35次

如果需要就必須要收錢，且請留下mail我會跟妳聯絡

下載點 (舊版 五次的限制）

http://www2.zshare.ma/tjcevevykh9g

  Private Sub ListView_單選(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckedEventArgs) Handles ListView1.ItemChecked
    '讀取 checkbox 的位置
    '單選checkbox 不能複選
    If CheckBox1.Checked = True Then
      If e.Item.Checked = True Then
        For i As Integer = (ListView1.CheckedItems.Count - 1) To 0 Step (-1)
          If Not ListView1.CheckedItems.Item(i).Equals(e.Item) Then
            ListView1.CheckedItems.Item(i).Checked = False
          End If
        Next
      End If

End Sub

網路上找到的範例

    If e.Item.Checked = True Then
      For i As Integer = (ListView1.CheckedItems.Count - 1) To 0 Step (-1)
        If Not ListView1.CheckedItems.Item(i).Equals(e.Item) Then
          ListView1.CheckedItems.Item(i).Checked = False
        End If
      Next
    End If