|
|
|
สอบถามเรื่องการกำหนดขนาดหน่วยเป็น pixel ใน vb.net หน่อยครับ |
|
|
|
|
|
|
|
control ตัวไหนครับ
|
|
|
|
|
Date :
2017-05-29 18:04:51 |
By :
lamaka.tor |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
อันนี้คือ code เดิมที่ใช้กับ vb6 แต่ผมอยากจะแปลง code นี้ไปใช้กับ vb.net น่ะครับ
Code
Private Sub Form_Load()
Text1.Text = ReadIniValue(App.Path & "\Config.ini", "Size", "Width")
Text2.Text = ReadIniValue(App.Path & "\Config.ini", "Size", "Height")
Text3.Text = ReadIniValue(App.Path & "\Config.ini", "Size", "Top")
Text4.Text = ReadIniValue(App.Path & "\Config.ini", "Size", "Left")
Text5.Text = ReadIniValue(App.Path & "\Config.ini", "URL", "URL")
With WePlay
.Top = Text3.Text * Screen.TwipsPerPixelX
.Left = Text4 * Screen.TwipsPerPixelY
End With
WePlay.Width = Text1 * Screen.TwipsPerPixelX
WePlay.Height = Text2 * Screen.TwipsPerPixelY
WebBrowser1.Navigate Text5.Text
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Document.body.Scroll = "no"
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
WebBrowser1.Visible = True
With WebBrowser1
.Top = 0
.Left = 0
End With
WebBrowser1.Width = WePlay.Width
WebBrowser1.Height = WePlay.Height
End Sub
|
|
|
|
|
Date :
2017-05-29 22:38:20 |
By :
serpens |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Load balance : Server 00
|