とても初歩的なことでお恥ずかしい限りですが・・・
どうしてもできないので教えてください。
OSがWindowsXP HomeEdition SP2で、
VisualBasic2005 ExpressEditon Ver8.0を使用しているのですが、フォームを消すことができません。
手順として
１、新規プロジェクトでWindowsアプリケーションを選択
２．フォーム１にボタン１を設置
３．ボタン１をダブルクリックし、コードを記載
自動的に記載されるコード
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
※１
End Sub
End Class
ここで、※１にunload meと記載。
すると、自動的にunload(Me)と変換されてしまい、
unloadの上にポインタを持っていくと、
「名前unloadは宣言されていません」
と出てしまいます。
一体何がいけないのでしょうか・・・？
非.NETユーザーだったのですが、.NETを勉強しています。
フォーム上に描画を行いたいのですが、下のモジュールを入力して、
実行した場合○と□が描画されます。
しかし、フォームの大きさ以上の描画をした場合に、表示しきれないので
スクロールバーを表示したいと思っています。
HScrollBarをフォームに貼り付けてBottomに移動した後、
実行した所、描画は行われるのですがスクロールバーが効きません。
なんらかのプロパティを変更しなければならないのでしょうか。
それとも、この場合根本的にHScrollBarコントロールを使用できないの
でしょうか。
Private Sub cmd描画_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmd描画.Click
Dim g As Graphics
Dim p As Pen
Dim b As SolidBrush
Dim r1, r2, r3 As Rectangle
g = Me.CreateGraphics
p = New Pen(Color.Red)
b = New SolidBrush(Color.Blue)
r1 = New Rectangle(10, 10, 50, 50)
g.DrawEllipse(p, r1)
r2 = New Rectangle(70, 70, 50, 50)
g.FillRectangle(b, r2)
r3 = New Rectangle(500, 10, 50, 50)
g.DrawEllipse(p, r3)
End Sub
よろしくお願い申し上げます。
VB6.0 SQLSERVER
ID 品名 数量 コード
1 りんご 5 A-1
2 りんご 8 A-2
3 りんご 3 B-1
4 みかん 5 A-2
済みません。うまく説明できないのですが
IDとコードの二つを抽出条件にしたいのです。
例えば1とコードA-1なら
1りんご5A-1を
IDだけとかコードだけを条件にしたら
うまく抽出できるのですが
2つになると「型が一致しません」とエラーになってしまいます。
お願いします。
教えてください。
Public Sub GetYukouzaiSuu(Optional Result As Boolean = True)
Dim sSQL As String
Dim dYukouzaiSuu As Double
sSQL = ("品番=" + pvBase.CvtSQL(txtHinban.Text)) AND ("棚番=" + pvBase.CvtSQL(txtTanaban.Text))
dYukouzaiSuu = pvBase.CvtDbl(pbAdo.Lookup("m_zaiko", "isnull(実在庫数,0)-isnull(引当数,0)", sSQL))
numYukouzaiSuu.Value = MaxValueCheck(dYukouzaiSuu, numYukouzaiSuu.MaxValue)
If pvBase.CvtLng(txtSeihinID.Text) = 0 Then
If pvBase.StrLen(txtHinban.Text) > 0 Then
labHinbanSt.Caption = "!"
End If
Else
labHinbanSt.Caption = ""
End If
End Sub
