前提・実現したいこと
VB.NETのフォームアプリケーションで、
テキストボックスなどのコントロールを半透明にしたいと思い、
ネットで検索し、以下のコードに辿り着きました。
ところが、このクラスを継承して正しく利用する方法が分かりません。
該当のソースコード
VB.NET
1Public Class CustomTextBox 2 Inherits TextBox 3 4 ''' <summary> 5 ''' Creates a transparent textbox. 6 ''' </summary> 7 ''' <remarks> 8 ''' Made this up as i went along. No real "back ground" (Nice pun :/) 9 ''' experience in custom controls. 10 ''' </remarks> 11 12 Public Sub New() 13 MyBase.New() 14 SetStyle(ControlStyles.SupportsTransparentBackColor, True) 15 End Sub 16 17 Protected Overrides Sub InitLayout() 18 MyBase.InitLayout() 19 Me.BorderStyle = System.Windows.Forms.BorderStyle.None 20 Me.BackColor = Color.Transparent 21 Me.Size = New System.Drawing.Size(175, 21) 22 End Sub 23 24End Class
試したこと
Form1_Loadで以下のように記述したのですが、
「o1.InitLayoutはProtectedであるためコンテキストではアクセスできません」と出たため、Public Sub New()を利用するのかとも思いましたが、プロシージャ名がないので
どう使用してよいのかさっぱり分からず困り果てました。
このあたりの使用方法で参考になりそうなページはありますでしょうか。
どうか宜しくお願いいたします。
VB.NET
1Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 2 Dim o1 As New CustomTextBox 3 o1.InitLayout()
補足情報
開発環境:Win10 x64, Visual Studio 2017
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/07/28 01:51