DoboWiki

'フォームのLoadイベントハンドラ
Private Sub Form1_Load(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
    'オーナードローを指定
    ComboBox1.DrawMode = DrawMode.OwnerDrawFixed
    '項目の高さを設定
    ComboBox1.ItemHeight = 20
    'DrawItemイベントハンドラの追加
    AddHandler ComboBox1.DrawItem, AddressOf ComboBox1_DrawItem
 
    'ComboBox1のリストに項目を追加する
    ComboBox1.Items.Add("おはよう。")
    ComboBox1.Items.Add("こんにちは。")
    ComboBox1.Items.Add("こんばんは。")
End Sub
 
'DrawItemイベントハンドラ
'項目を描画する
Private Sub ComboBox1_DrawItem(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.DrawItemEventArgs)
    '背景を描画する
    '項目が選択されている時は強調表示される
    e.DrawBackground()
 
    Dim cmb As ComboBox = CType(sender, ComboBox)
    '項目に表示する文字列
    Dim txt As String
    If (e.Index > -1) Then
        txt = cmb.Items(e.Index).ToString()
    Else
        txt = cmb.Text
    End If
 
    '使用するブラシ
    Dim b As Brush = New SolidBrush(e.ForeColor)
    '文字列を描画する
    Dim ym As Single = (e.Bounds.Height - _
        e.Graphics.MeasureString(txt, cmb.Font).Height) / 2
    e.Graphics.DrawString(txt, cmb.Font, b, _
        e.Bounds.X, e.Bounds.Y + ym)
    b.Dispose()
 
    'フォーカスを示す四角形を描画
    e.DrawFocusRectangle()
End Sub

vbc.exe /out:win32res.dll /target:library /win32resource:win32.RES win32res.vb

Dim url As String = "res://" + _
    System.Reflection.Assembly.GetExecutingAssembly().Location + _
    "/test.html"
 
'WebBrowserに表示する
AxWebBrowser1.Navigate(url)

'フォームのLoadイベントハンドラ
Private Sub Form1_Load(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
    TabControl1.Alignment = TabAlignment.Right
 
    'TabControlをオーナードローする
    TabControl1.DrawMode = TabDrawMode.OwnerDrawFixed
    'DrawItemイベントハンドラを追加
    AddHandler TabControl1.DrawItem, AddressOf TabControl1_DrawItem
End Sub
 
'TabControl1のDrawItemイベントハンドラ
Private Sub TabControl1_DrawItem(ByVal sender As Object, _
    ByVal e As DrawItemEventArgs)
    '対象のTabControlを取得
    Dim tab As TabControl = CType(sender, TabControl)
    Dim page As TabPage = tab.TabPages(e.Index)
    'タブページのテキストを取得
    Dim txt As String = page.Text
 
    'StringFormatを作成
    Dim sf As New StringFormat
    '縦書きにする
    sf.FormatFlags = StringFormatFlags.DirectionVertical
 
    Dim foreBrush, backBrush As Brush
    '背景の描画
    backBrush = New SolidBrush(page.BackColor)
    e.Graphics.FillRectangle(backBrush, e.Bounds)
    'Textの描画
    foreBrush = New SolidBrush(page.ForeColor)
    e.Graphics.DrawString(txt, page.Font, foreBrush, _
        RectangleF.op_Implicit(e.Bounds), sf)
 
    foreBrush.Dispose()
    backBrush.Dispose()
End Sub

TabControl1.Alignment = TabAlignment.Right
 
'縦書きのフォントにする
TabControl1.Font = New Font( _
    TabControl1.Font.FontFamily, _
    TabControl1.Font.Size, _
    TabControl1.Font.Style, _
    TabControl1.Font.Unit, _
    TabControl1.Font.GdiCharSet, _
    True)

'文字列
Dim str As String = TextBox1.Text
'カレットの位置を取得
Dim selectPos As Integer = TextBox1.SelectionStart
 
'カレットの位置までの行を数える
Dim row As Integer = 1
Dim startPos As Integer = 0
Dim endPos As Integer
While (True)
    endPos = str.IndexOf(vbLf, startPos)
    If (endPos < 0 Or endPos > selectPos) Then
        Exit While
    End If
    startPos = endPos + 1
    row += 1
End While
 
'列の計算
Dim col As Integer = selectPos - startPos + 1
 
'結果を表示
Console.WriteLine("行:{0} 列:{1}", row, col)

<System.Runtime.InteropServices.DllImport("User32.Dll")> _
Private Shared Function SendMessage( _
    ByVal hWnd As IntPtr, _
    ByVal Msg As Integer, _
    ByVal wParam As Integer, _
    ByVal lParam As Integer) As Integer
End Function
Private Const EM_LINEINDEX As Integer = &HBB
Private Const EM_LINEFROMCHAR As Integer = &HC9
 
'Button1のクリックイベントハンドラ
Private Sub Button1_Click(ByVal sender As Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
    '現在の行を取得する
    Dim row As Integer = SendMessage( _
        TextBox1.Handle, EM_LINEFROMCHAR, -1, 0) + 1
 
    '現在の列を取得する
    Dim lineIndex As Integer = SendMessage( _
        TextBox1.Handle, EM_LINEINDEX, -1, 0)
    Dim col As Integer = TextBox1.SelectionStart - lineIndex + 1
 
    Console.WriteLine("行:{0} 列:{1}", row, col)
End Sub