初めまして ご質問です
会社にて、職場改善のため VB2013でプログラムを作成していますが
PCに詳しいのが自分しかいなく、指名されました。。。
もちろん自作PCとか作れるぐらいですが
プログラムなんてやったことないし困っています
職場にプログラム専門の方がいるので教育を受けていますが
2.3回教えてもらって
「windowsの電卓を作ろう」と言われました
電卓作成は、初心者用の題材らしいですが
とりあえず教えてもらった事を駆使し
まずは、テキストボックスとテキストボックスに数字を入れ
その二つを +や-ボタンを押し
＝ボタンを押すと、3つ目のテキストボックスに表示させるという
簡単なプログラムは、なんとかできましたが
windowsぽくすると
例
11 + 12 - 9
とテキストに表示され
＝ボタンを押すと 表示が消え 計算結果が表示されます
いまの問題
・整数と文字列を表示させ、計算だけさせる
・変数宣言、IF、Serectしか教わってない（それだけでできる言われた笑）
・まだ、いまいちわかっていないため 詳しく知りたい
無論、教えてもらったコードをそのまま使いたいわけじゃなく
どーいう流れで、どーいう風にというのを理解したいです
結局は自分が理解して、少しずつやらないといけないので
詳しい方、教えてください。
現在なにもできてないコードです
ここにどう埋めるか教えてほしいです
------------------------------------------------------------------------------
Option Explicit On
Public Class Form
Public oboe As String '押されたボタンが数値以外を覚える変数
Public befor As String '押されたボタンが数値の場合 覚える変数
Public anser As Integer ' 計算結果を保存する 変数
Public number As Integer '入力された数値を保存する 変数
Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'１
befor = "1"
ans.Text &= "1"
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'２
befor = "2"
ans.Text &= "2"
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
'３
befor = "3"
ans.Text &= "3"
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
'たし算
oboe = "+"
ans.Text &= "+"
number = befor + ans.Text
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
'掛け算
End Sub
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
'計算
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
'CLEAR
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
'引き算
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
'割り算
End Sub
Private Sub ans_TextChanged(sender As Object, e As EventArgs) Handles ans.TextChanged
以下のエクセルvba内で、「シート★」のＡ列（項目名：条件）にある値に該当するデータのみを、抽出するというSQLを書いているのですが、その速度を速めたいです。
時間が掛かる部分は、SELECT句のところで、Ａ列の条件を参照するのが、上から一つ一つになるためと分かっています。。。
何とか速度を速めることはできないでしょうか？お知恵を貸してください。
※Ａ列の条件が入力されている値の数（行数）は、変動します。
最小で50、最大で200となります。
◆以下、VBA（一部）－－－－－－－－－－－－－－
Dim mySQL AS String
Dim i
n = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 to n
mySQL = "SELECT * FROM [シート★$] WHERE 条件 = Cells(n, 1) "
※この下に、上記SQLから別シートにデータを出力するSQLを記載
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
以上
こちらでは大変お世話になっております。
開発環境：Visual Studio 2012
Protected Overrides Sub WndProc(ByRef m As Message)
MyBase.WndProc(m)
End Sub
上記はよくあるメッセージ系のサブクラスで使うオーバーライトですが、
TextBoxのサブクラスでProtected Overrides Sub WndProc を使った場合に
入力された文字を一切、オブジェクトに渡したくない場合、
（TextBoxには入力された文字は一切表示させない）
ByRef m As Message の m に対してどのようなプログラムを書けば、
この先のTextBoxに値を渡さなくできるでしょうか？
m = Nothing などでは無理のようですので
いろいろな加工を途中で行った文字列をプログラム側で代入したいなどを行いたいと
思っております。
何卒よろしくお願い申し上げます。
こちらでは大変お世話になっております。
開発環境：Visual Studio 2012
Protected Overrides Sub WndProc(ByRef m As Message)
MyBase.WndProc(m)
End Sub
上記はよくあるメッセージ系のサブクラスで使うオーバーライトですが、
TextBoxのサブクラスでProtected Overrides Sub WndProc を使った場合に
入力された文字を一切、オブジェクトに渡したくない場合、
（TextBoxには入力された文字は一切表示させない）
ByRef m As Message の m に対してどのようなプログラムを書けば、
この先のTextBoxに値を渡さなくできるでしょうか？
m = Nothing などでは無理のようですので
いろいろな加工を途中で行った文字列をプログラム側で代入したいなどを行いたいと
思っております。
何卒よろしくお願い申し上げます。
Access VBA初心者です。
Dim Ax( 1 to 256 ) as Byte
Dim Bx as Integer
があるとします。
Ax(1)～Ax(256)には，データが入っています。
Ax(102)～Ax(103)を切り出して，Bxに代入したいのですが，どうしたら良いのでしょうか。
Bxの値は整数として，あとの処理に使います。
Access VBA初心者です。
Dim Ax( 1 to 256 ) as Byte
Dim Bx as Integer
があるとします。
Ax(1)～Ax(256)には，データが入っています。
Ax(102)～Ax(103)を切り出して，Bxに代入したいのですが，どうしたら良いのでしょうか。
Bxの値は整数として，あとの処理に使います。
お世話になります。
環境：Visual Strudio 2012 VB.Net
フォームにTABコントールを配置しまして、いろいろと設定やボタンなどを配置しました。
結構苦労してデザインなども行いました。
ところが、このTABコントロールに対しまして、Protected Overrides Sub WndProc(ByRef m As Message) が必要となりまして、サブクラスにして配置しなおせば可能なのは、十分わかっているのですが、ボタンやデザインなど全て設定し直さないといけなと思うと失神しそうになった次第であります。
既にデザインやボタンなどを配置したTABコントロール対して、Protected Overrides Sub WndProc(ByRef m As Message) を後付させることは可能なのでしょうか？
最悪はサブクラスを作成して、デザインをやり直す覚悟ですが、最後と思いましてこちらに質問させていただきました。
何卒よろしくお願い致します。
こんにちは。
VB初心者です。
前任者が作成したCSVファイルをメモリに格納するプログラムから
Oracleテーブルのデータからメモリへ格納するプログラムへ
変更したいのですが、全くのVB初心者でわかりません。
ヒントでもいいですので教えてください。
CSVファイルをメモリに格納するプログラムは以下の通りです。
Function ReadCSV(ByVal szFilePath As String) As String()()
' (全般) に Imports 追記
' Imports System.IO
' Imports System.Text
Dim arrayTempLines()() As String = {}
' ストリームを開きます
Dim reader As New IO.StreamReader(szFilePath, System.Text.Encoding.Default)
Dim iIdx As Integer = 0
' 一気に読み込みます
Dim szData As String = reader.ReadToEnd()
' 不要な文字を取り除きます
szData = szData.Replace(vbCr, "")
' 改行で分離して配列に格納します
Dim arrayLines() = szData.Split(vbLf)
Dim szLine As String
For Each szLine In arrayLines
Dim iCount As Integer = 0
Dim szTemp As String = ""
Dim bValid As Boolean = False
If szLine.Length > 1 Then
' 配列の追加します
ReDim Preserve arrayTempLines(iIdx)
' カンマ区切りで分離して配列に格納します
arrayTempLines(iIdx) = szLine.Split(",")
' データのチェックをします
If arrayTempLines.Length >= 1 And _
arrayTempLines(iIdx)(0) <> "" Then bValid = True
' 不要データを除きます
For Each szTemp In arrayTempLines(iIdx)
arrayTempLines(iIdx)(iCount) = _
szTemp.Replace(Chr(34), "").TrimEnd() ' Chr(34)は"のことを指します
iCount += 1
Next
' 配列数チェックをします
If bValid Then iIdx += 1
End If
Next
' 配列を切り詰めます
'ReDim Preserve arrayTempLines(iIdx - 1)
' 読み込み用のストリームを閉じます
If (Not reader Is Nothing) Then
reader.Close()
reader = Nothing
End If
ReadCSV = arrayTempLines
End Function
以上です。
ちなみに、Oracleテーブルの中にはフィールドが二つあります。
