Visual Basic初心者です。
Visual Studio 2005を使って、九九表を表示させるプロジェクトを作りたいのですが、
For Nextステートメントを使うところまではわかりましたが、
Labelに表示させると繰り返した最終の値（2の段だと、18）しか表示されません。
途中の数字（×1～8まで）を表示させるには、どうすればいいのか教えてください。私の組んだタグは以下の通りです。よろしくお願いします。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, d, f, g, h, i, j As Integer
For a = 1 To 9
Label1.Text = 1 * a
For b = 1 To 9
Label2.Text = 2 * b
For c = 1 To 9
Label3.Text = 3 * c
For d = 1 To 9
Label4.Text = 4 * d
Next
Next
Next
Next
End Sub
Visual Basic初心者です。
Visual Studio 2005を使って、九九表を表示させるプロジェクトを作りたいのですが、
For Nextステートメントを使うところまではわかりましたが、
Labelに表示させると繰り返した最終の値（2の段だと、18）しか表示されません。
途中の数字（×1～8まで）を表示させるには、どうすればいいのか教えてください。私の組んだタグは以下の通りです。よろしくお願いします。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b, c, d, f, g, h, i, j As Integer
For a = 1 To 9
Label1.Text = 1 * a
For b = 1 To 9
Label2.Text = 2 * b
For c = 1 To 9
Label3.Text = 3 * c
For d = 1 To 9
Label4.Text = 4 * d
Next
Next
Next
Next
End Sub
お世話になります。
株チャートの動きを確認する為、ボタンをクリックすると、モニタに映ってるモノ全体が、瞬時に、BMPで保存されるというプログラムを作ってます。
キーボードの PrtScSysRq を押して、エクセルなどに貼付け保存という手作業をエクセルではなく BMP に置き換えて保存という事です。
過去の類似質問を見てみますと、「ピクチャーボックスの画像を保存」はありましたが、「モニタの画像」は見当たらず、グーグルなどで検索して、ムリヤリ作ってみました。下記参照。
しかし、実際動かしてみると、「名前がついて保存されてるが何も映っていない」「瞬時ではなく、30秒～２分くらい前の画像が保存される」という不具合になってます。
この場合の正しいプログラムを教えて欲しいです。
御教授御願いします。
form1 に .Command1 .Picture1 を貼り付けます。
Private Type tagKEYBDINPUT
wVk As Integer
wScan As Integer
dwFlags As Long
time As Long
dwExtraInfo As Long
bytUnusedPadding(7) As Byte
End Type
Private Type tagINPUT
type As Long
ki As tagKEYBDINPUT
End Type
Private Const INPUT_KEYBOARD = 1
Private Const VK_LMENU = &HA4&
Private Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long, pInputs As tagINPUT, ByVal cbSize As
Long) As Long
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long,
ByVal dwExtraInfo As Long)
Private Const VK_SNAPSHOT = &H2C
Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private IYI As String, G_CC As Integer
Private Sub Command1_Click()
G_CC = G_CC + 1
Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0)
Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
Picture1.Picture = Clipboard.GetData
IYI = "C:\test\" & G_CC & "_SAMP.BMP"
Call SavePicture(Picture1.Image, IYI)
Clipboard.Clear
End Sub
Private Sub Form_Load()
With Me
.ScaleMode = vbPixels
With .Picture1
.Appearance = 0
.AutoRedraw = True
.AutoSize = True
.BorderStyle = 0
.Visible = False
End With
End With
G_CC = 0
End Sub
