少し説明しにくいのですが…
VB5での実行ファイル上で(作成したEXE上で)、
Frame1(0)上にText1(0)が貼り付けられているとして、新しくFrame1(1)とText1(1)を作成する(Text1(1)はFrame1(1)の子コントロール)方法はありませんでしょうか?
現状はLoadステートメントを使用してText1(X)をForm上に作成(コピー)していたのですが、
この方法でFrameとTextをそれぞれ作成すると、Frame1(1)はForm上にできるのですが、Text1(1)はFrame1(0)の中に作成されてしまいます。
このText1(1)をFrame1(1)の中に(強制的に)作成する方法や、一度Frame1(0)の中に作成してFrame1(1)の中に移動する方法があれば、どなたか教えていただけないでしょうか?
よろしくお願いいたします。
(10件ほど前の同質問者の質問の続きになります)

A 回答 (1件)

たぶん、


>一度Frame1(0)の中に作成してFrame1(1)の中に移動する方法
になるのでしょうが、Containerプロパティを使用してはいかがですか。このプロパティに関するヘルプと使用例を参照すれば解決すると思います。

ただし、私の環境がVB6ですのでVB5にこのプロパティがあるかどうかわかりませんが…。
    • good
    • 0
この回答へのお礼

ありがとうございます。その「たぶん」です。やはり簡単な方法で出来るのですね。質問がダラダラ長くて読みづらいからか?あまりに馬鹿らしい質問だからか?回答が無かったので、解決手段が無いかと半ばあきらめておりました。本当に助かりました。

お礼日時:-0001/11/30 00:00

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

QSQL文で、1,2,3、以外(0とかブランク)を1と見立てて集計したい

データを取り出す時次のように書きます
SELECT テーブル1.id, テーブル1.kubun FROM テーブル1;

このフィールドkubun、は本来、1、か、2、ですが
例外的にブランクや0(ゼロ)が入っています。
フィールドkubun、がブランクやゼロだったら、1に変換
しながら、テーブル1から集計するSQL文はないでしょうか?

テーブル1を前もって変換しておけが、いいのですが
そうした方法を使わず、集計の時に行いたいのですが

Aベストアンサー

単純にやるなら、REPLACE(フィールド名, 該当する値, 変換する値) にするのはどうでしょうか。
この例でいくと
SELECT テーブル1.id, REPLACE(テーブル1.kubun,0,1) FROM テーブル1
って感じですかね。
※上の例は0を1にする形にしかしてません。

ブランクとは、全なのか半なのかわかりませんがこれもネストさせれば
十分対応できるかと思います。

ただし、nullの場合は IsNullなどを使わなければいけません。

QSetステートメントをまとめて記述する方法 (エクセル2000VBA)

お世話になります。

Setステートメントで以下のように書いて、シート名を省略して使っています。
 Set a = ThisWorkbook.Worksheets("い")
 Set b = ThisWorkbook.Worksheets("ろ")
 Set c = ThisWorkbook.Worksheets("は")

これをプロシージャ毎に書くとコードが長くなるので、先頭かどこかに1回書くだけで、全てのプロシージャで使えるようにしたいのですがどうしたら良いでしょうか?

このようなプロシージャを実行したいのですが、
Private Sub CommandButton1_Click()
 a.Range("A2").Value = "データ1"
 b.Range("B4").Value = "データ2"
 c.Range("C9").Value = "データ3"
End Sub
(他にもコマンドボタンやチェックボックス用のプロシージャがあります)

Setステートメントだけを先頭に書くと、
「プロシージャの外では無効です」というエラーが出ましたので、
Public Sub hensuu()
 Set a = ThisWorkbook.Worksheets("い")
 Set b = ThisWorkbook.Worksheets("ろ")
 Set c = ThisWorkbook.Worksheets("は")
End Sub
のようにしたら、「実行時エラー"424":オブジェクトが必要です」というエラーが出てしまいました。

どのようにしたらエラーが出ず正しく動くようになりますでしょうか?よろしくお願いします。

お世話になります。

Setステートメントで以下のように書いて、シート名を省略して使っています。
 Set a = ThisWorkbook.Worksheets("い")
 Set b = ThisWorkbook.Worksheets("ろ")
 Set c = ThisWorkbook.Worksheets("は")

これをプロシージャ毎に書くとコードが長くなるので、先頭かどこかに1回書くだけで、全てのプロシージャで使えるようにしたいのですがどうしたら良いでしょうか?

このようなプロシージャを実行したいのですが、
Private Sub CommandButton1_Click()
 a.Range("A2").Valu...続きを読む

Aベストアンサー

> ただ、シート数や順番、シート名など変更になる場合が多いので、1ヶ所変更したら置換などしなくても全てのコードが変更されるようにしたかったので

シート数が変更になった時点で、別のコーディングが入ると思います。
シート名、シート数が変更になっただけであれば、
以下の方法で対処可能です。
No.3のコーディングを例にします。

【Sheet(い)】
Private Sub CommandButton1_Click()
With ThisWorkbook.Sheets(SHEET1_NAME)
.Range("A2").Value = "データ1"
.Range("B4").Value = "データ2"
.Range("C9").Value = "データ3"
End With

With ThisWorkbook.Sheets(SHEET2_NAME)
.Range("A2").Value = "データ1"
.Range("B4").Value = "データ2"
.Range("C9").Value = "データ3"
End With

With ThisWorkbook.Sheets(SHEET3_NAME)
.Range("A2").Value = "データ1"
.Range("B4").Value = "データ2"
.Range("C9").Value = "データ3"
End With

End Sub

【Module1】
Public Const SHEET1_NAME As String = "い"
Public Const SHEET2_NAME As String = "ろ"
Public Const SHEET3_NAME As String = "は"

シート数が増えた場合にはModule1の定数を追加して下さい。

とりあえず、瞬間的に考えたらこれしか思いつきませんでした^^;

> ただ、シート数や順番、シート名など変更になる場合が多いので、1ヶ所変更したら置換などしなくても全てのコードが変更されるようにしたかったので

シート数が変更になった時点で、別のコーディングが入ると思います。
シート名、シート数が変更になっただけであれば、
以下の方法で対処可能です。
No.3のコーディングを例にします。

【Sheet(い)】
Private Sub CommandButton1_Click()
With ThisWorkbook.Sheets(SHEET1_NAME)
.Range("A2").Value = "データ1"
.Range("B4")...続きを読む

Qアクセス2003のフォーム上で1クリックしたら、デスクトップ上のあるエ

アクセス2003のフォーム上で1クリックしたら、デスクトップ上のあるエクセルのファイルを開きたいと考えています。コマンドラインの記述の仕方を教えてください。よろしくお願いいたします。

Aベストアンサー

以前、Accessから別のAccessを開く件について回答した者です。
http://oshiete1.goo.ne.jp/qa5624449.html

Excelも2003かと思いますので、もしも開くExcelにマクロが組み込まれて
いると、Accessの場合と同様にセキュリティメッセージが表示されることに
なるかと思いますので、その対応版をご紹介しておきます。
(基本的には、Accessの場合と同様になります。・・・前回の回答も含め、
 不明な点があるようでしたら、補足説明します(汗))

'今回は、コマンドボタンへの直接組込としました。
Private Sub コマンド1_Click()
On Error Goto エラー処理

  'Excelアプリケーションを扱うための変数を宣言
  Dim objXls As Object

  '開くExcelファイルのファイルパスを定数として宣言
  Const strPath As String = "c:\Documents And Settings\ユーザー名\デスクトップ\ファイル名.xls"

  'Excelアプリケーションを新規に開く
  Set objXls = CreateObject("Excel.Application")

  With objXls
    'マクロ組込時のメッセージを非表示化
    .AutomationSecurity = 1
    '対象ファイルを開く
    .Workbooks.Open strPath
    '上記の状態では非表示のままなので可視化して
    'ユーザーに制御を渡す
    .UserControl = True
    .Visible = True
  End With

終了処理:
  '念のため、明示的にメモリを解放して終了
  Set objXls = Nothing
  Exit Sub

エラー処理:
  MsgBox Err.Number & ":" & Err.Description, , Me.Name & " コマンド1"
  Resume 終了処理

End Sub


・・・以上です。

以前、Accessから別のAccessを開く件について回答した者です。
http://oshiete1.goo.ne.jp/qa5624449.html

Excelも2003かと思いますので、もしも開くExcelにマクロが組み込まれて
いると、Accessの場合と同様にセキュリティメッセージが表示されることに
なるかと思いますので、その対応版をご紹介しておきます。
(基本的には、Accessの場合と同様になります。・・・前回の回答も含め、
 不明な点があるようでしたら、補足説明します(汗))

'今回は、コマンドボタンへの直接組込としました。
Private ...続きを読む

Qテキスト形式(.txt)をエクセルで読み込むときに1桁目の「0」を読み込みたい

タブ区切りで作成されたテキストデータがあります。

これをエクセルで読み込むと、タブ区切りからセル区切りに自動的に変換されますが、
テキストに「0」から始まるデータがある場合、エクセルに変換されると数値として読み取ってしまうので、2桁目以降の0以外の数字を1桁目として認識してしまいます。

つまり、
「テキストデータを「文字列」のデータとしてエクセルで読み取る」
方法を探しています。

ご存知の方、教えてください。
よろしくお願いいたします。

Aベストアンサー

テキスト ファイル ウィザードの3/3のところで、
[列のデータ形式]を[文字列]にしてみてください。

QSQLステートメントのFROM句・・・

いつもお世話になっています。
早速ですが・・Access2000を使っている中で質問です。
クエリでテーブルを参照していたのですが、テーブルのほうで変更があり、1フィールド追加しました。
簡単な流れは・・・
業務のかかった時間に役職単価をかけてやり、1業務ごとに人件費を算出する
その中で、役職単価は社員名を選ぶと「役職リスト」とリレーして役職単価を自動で出すようにしていましたが、色々問題があり単純にダウンメニューで「役職リスト」を参照し、役職単価をレコードごとに記録していく方法に切り替えました。

その際、クエリを先にいじればよかったのかもしれませんがテーブルに今まで社員を判別するためのIDフィールドはあったのですが役職単価がなかったのでフィールドを追加しました。

すると・・・クエリの修正を行なおうと開こうとすると

指定されたフィールド'[役職単価]'がSQLステートメントのFORM句にある複数のテーブルを参照しました。
と出て以下(文字数制限でした別枠に書きます)のSQLコードをはきだしました。

SQLコード内で役職単価を追加してやればいいのかもしれませんが
何所にどうやって追加して良いのか分かりません。
アドバイスをいただけるとうれしいです。

いつもお世話になっています。
早速ですが・・Access2000を使っている中で質問です。
クエリでテーブルを参照していたのですが、テーブルのほうで変更があり、1フィールド追加しました。
簡単な流れは・・・
業務のかかった時間に役職単価をかけてやり、1業務ごとに人件費を算出する
その中で、役職単価は社員名を選ぶと「役職リスト」とリレーして役職単価を自動で出すようにしていましたが、色々問題があり単純にダウンメニューで「役職リスト」を参照し、役職単価をレコードごとに記録していく方法...続きを読む

Aベストアンサー

追加したフィールド名が他のテーブルで使用しているものとバッティングしたのですね
そういう場合はフィールド名の前にテーブル名をピリオドでつないでやります

テーブル名.フィールド名

SQLは関係ないですね


このカテゴリの人気Q&Aランキング

おすすめ情報