WantGoo 玩股網

WantGoo 玩股網

群益金融網 - 證券

群益金融網 - 證券
--
不錯的 web 查股 , 還有大師講股的評分

融資增加

參考引用來源
--
融資增加,代表散戶一片看好,如果融資持續的增加 ,代表這支股票熱度已增
加 ,如股價也上漲 ,則融資的買者 ,一片熱疼疼 ,市面上充斥著歡欣鼓舞.
如果融資持續的增加 ,但股價是往下跌 ,則買到融資的人一片套牢聲 ,逢低
都是在攤平 ,且越攤越難過 ,苦無翻身之日.
一般融券也增加的話代表的也是有多種意義 ,股價一直漲 ,有的人會認為融
資持續的增加 ,都是散戶在裡面 ,不放你空等何時 ,當放空後股價持續上
漲 ,當然放空的人也是會往上再放空也算是攤平拉高放空的價位.
另一種公司有大利空 ,而部分有內線的人知道後會放假的好消息讓散戶去用
融資買進然後他再猛放空 ,就像3年前的禿鷹集團 ,這是最惡劣的手法.
總之融資融卷都增加的話就是已到很熱的價位ㄌ...多空都要小心....

Resize form and all controls in proportion to their startup size/location

參考引用
--


Public Class Form1

    Public NameControlDesign() As String
    Public LocationControlDesign() As Point
    Public SizeControlDesign() As Size
    Public SizeFormDesign As Size
    Public LastSize As Size
    Private font_size As Double
    Private new_font_size As Double
    Public heightratio As Double
    Public widthratio As Double
    Dim origWidth As Integer
    Dim origHeight As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LastSize = Me.Size
        font_size = Me.Font.Size
        new_font_size = Me.Font.Size
        origWidth = Me.Width
        origHeight = Me.Height
        ReDim NameControlDesign(Me.Controls.Count)
        ReDim LocationControlDesign(Me.Controls.Count)
        ReDim SizeControlDesign(Me.Controls.Count)
        SizeFormDesign = Me.Size


        For i As Integer = 0 To Me.Controls.Count - 1
            NameControlDesign(i) = Me.Controls(i).Name
            LocationControlDesign(i) = Me.Controls(i).Location
            SizeControlDesign(i) = Me.Controls(i).Size
        Next i
    End Sub

    Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
        heightratio = Me.Height / origHeight
        widthratio = Me.Width / origWidth
        new_font_size = Math.Max(4, Math.Round(font_size * _
        IIf(Math.Abs(heightratio) < Math.Abs(widthratio), _
        heightratio, widthratio), 0))


        For a As Integer = 0 To sender.Controls.Count - 1
            sender.Controls(a).Location = New Point(sender.Size.Width / SizeFormDesign.Width * LocationControlDesign(a).X, sender.Size.Height / SizeFormDesign.Height * LocationControlDesign(a).Y)
            sender.Controls(a).Size = New Size(sender.Size.Width / SizeFormDesign.Width * SizeControlDesign(a).Width, sender.Size.Height / SizeFormDesign.Height * SizeControlDesign(a).Height)
        Next a
        Me.Refresh()
    End Sub
End Class

如何設定DataGridView欄位固定高度與寬度

參考引用
--
 DataGridView grid = new DataGridView();
 foreach (DataGridViewColumn gCol in grid.Columns)
 gCol.Width = 100;
 grid.RowTemplate.Height = 24;

產業分析好站蒐集

[分享]產業分析好站蒐集byBruce Hsu | 小樂的生存之道

IP查詢工具 - 查IP位置,IP查國家,ISP來源,查網址IP,查詢自己IP位址

IP查詢工具 - 查IP位置,IP查國家,ISP來源,查網址IP,查詢自己IP位址

大陸-孔雀鱼論壇

大陸-孔雀鱼論壇

異型鬍子養殖經驗收藏

引用來源
--
 你是跟我買嗎?沒關係?就算不是我們也可彼此交流心得.以下提供參考
剛買來得小魚.我通常會對水一天以上.讓於適應新家ㄉ水質和各種條件"
對水方式請參考我自製影片http://www.guppytaiwan.com.tw/blog-154363-5377.html
通常小魚我都會時豐年蝦2個月再改成一般底棲飼料+綠藻碇.至少要3公分以上我才會出售
基本功就只有一個字.就是"勤".勤清理.勤換水.勤發問.勤爬文
我開始養魚也才一年半而已.也還在學習.這是我的心得請參考
魚對水時不要餵食，結束後一天在餵，可先給綠藻１\４錠，酵素１\４錠，再來就隨你了，不要因保健食品好用就常給吃，到時一般飼料就不吃了，久了會營養不良，綠藻可常吃和飼料輪流餵食.
我ㄉ魚缸很簡單.1.5尺缸只有大雙管水妖精2組.竹炭桶或是產卵桶在家沉木.沒有一些雜7雜8ㄉ東西.如果中北部可能會需要加溫棒.去年寒流水溫最低溫撐過18~19度.所以南部冬天不需要加溫棒.
中北部的水比較適合養異形.水質較軟.PH也偏中性.所以我不認為需要買太多東西.除非你混養很多其他魚種
繁殖ㄉ話.中北部水質OK.PH也OK.水溫24最好.23~25度都會生.生ㄌ後蛋和魚不需要分家.除非公魚受到極大驚嚇才有可能吃蛋.讓公魚照顧.5~7天就會孵化成小魚.沒經驗ㄉ公魚可能會將一些卵和小魚踢出產卵桶.通常我會讓牠們自生自滅.有時也會人工孵化.生存機率不高.孵化後再將小魚和魚爸分開.小魚的卵黃會在5~7天退化完成.這幾天不需餵食.營養來自卵黃.可以在第5天開始極少量餵食.這時就所謂的訓餌.小魚的食物就是豐年蝦或是水蚤.我目前使用豐年蝦(較貴).水蚤需要養殖.有點麻煩.我也不會.但是成本幾乎是0元.1個月後再訓餌.加入綠(藍)藻碇和少量一般飼料.2個月後就正常一般飼料.
至於魚要養的黃.綠(藍)藻碇是不可或缺.這是比較容易吸收的植物性蛋白質.加上大量換水(須循序漸進)增進牠的新陳代謝....健康的魚就會非常黃.公魚和母魚體色會有落差.母魚偏白(尤其抱蛋期間)

VB.NET輕鬆實現工作列程式

參考引用
--
1.啟動 .NET 環境, 新建一個 VB.NET的WINDOWS應用程式
2.在表單上添加一個 NotifyIcon 控制項 , 指定一個相應的圖示檔
3. 添加一個 CONTEXTMENU , 將 NotifyIcon 的 CONTEXTMENU 指定為這個CONTEXTMENU
4. 給 CONTEXTMENU 添加兩個子功能表, 分別為 「顯示介面」 和 「退出」, 如圖:
5. 按兩下 「退出」 功能表, 輸入 Me.Dispose(True)
6. 按兩下 「顯示」功能表, 輸入
Me.Show()
Me.Focus()
7. 在 FORM 的 Form_Closing 中輸入
e.Cancel = True
Me.Hide()
8. 運行程式, 看效果 !

DirectShowNet library

DirectShow .NET
--

.NET 撥放影音

20130916 , 採用此GUN ; 必須搭配 解碼器,才能動唷!!
K-Lite Mega Codec Pack 10.0.3 阿榮版 - 影片播放軟體

K-Lite Codec Pack 10.0.5 Full:軟體王-軟體資訊網站
 

Update 語法在 SQL Server v.s. Access

參考引用來源
--
當要關聯多個資料表 (Table) 來執行 Update 指令時

【SQL Server】

UPDATE   Tab1
          SET   a.Name   =   b.Name
          FROM   Tab1   a,Tab2   b
          WHERE   a.ID   =   b.ID;


【Access】

注意：ACCESS 中的 UPDATE 語句沒有 FROM 子句

UPDATE   Tab1   a,Tab2   b
          SET   a.Name   =   b.Name
          WHERE   a.ID   =   b.ID;



UPDATE   Tab1   a,(Select   ID,Name   From   Tab2)   b
          SET   a.Name   =   b.Name
          WHERE   a.ID   =   b.ID;

使用電腦「雙螢幕輸出」來增加工作效率

請參考來源:使用電腦「雙螢幕輸出」來增加工作效率

換個大戶腦 五個不一樣讓你不再住套房

請參考來源:換個大戶腦 五個不一樣讓你不再住「套房」

股市籌碼分析_股狗網

股市籌碼分析_股狗網

VB6.0 開發累積(函數庫)

參考來源:VB6.0 开发积累(函数库)