No.9
- 回答日時:
(Shape)コントロールを4個で構成するより
(Line)コントロールを2個で構成する方が楽なようです
2つの(Line)コントロール重ね下面が縁の色、上面が内部塗りつぶし色です
トラック形状の高さはDrawWidthプロパティーで
幅はX1、X2プロパティーで決定します
幅の変更は各LineのX2プロパティーのみですみます
---------------------------------------
添付画像の設定
(FormのScaleModeはピクセルに設定されています)
●Line1 (下面)
DrawWidth=52
X1=50
X2=200
Y1=50
Y2=50
●Line2 (上面)
DrawWidth=50
X1=50
X2=200
Y1=50
Y2=50
uruzさん
ありがとうございます。
Lineで試してみたらOKでした。
あと、ダミーの円を配置して同色で塗りつぶしてみたりして
トラック内の線を綺麗に消すことができました。
No.8
- 回答日時:
またまたまた登場、myRangeです。
>トラックの幅(横)が可変値(人が値入力するため可変)
>という事を書き忘れていました。
大事なことを小出しにしてはいけませんねぇ。。(^^;;;
>トラックの幅を短くしたときに
>今まで隠れていた丸半分の一部が見えて
四角形の幅を変更(短くor長く)した時には、
それに応じて関係する他のShapeも変更しなければ拙いですよね。
それはやってますか?
ただ、それでもまだ不明な点があります。
何の為にこうこうものを作成するのか、実際に即した流れを説明した方がいいでしょう。
例えば、
●先ず、質問者が、円(楕円)が2つ、四角形が2つ(うちダミー四角形が1つ)のShapeで、余計な線を消した、トラック図形を作成しておく
●次に、TextBoxに、最初の四角形の幅を入力しその値で、トラックの図形を変更する
それから、四角形の幅ではなく、高さの変更もありそうですが、、、
などのようなことが分かると回答しやすいですね。
また、質問者の現在のコードもアップした方がいいでしょう。
以上です。
myRangeさんへ
度々すみません。
どうもあせってしまって、大事な部分が抜けていたりして、反省します。
四角形の幅を変更(短くor長く)した時には、・・・ですが、
長方形のShapeも変更をしています。
Shapeの円x2つと長方形x1つでトラックを作り、この表示されている
円と長方形から微妙にずらした(計算して位置決めをした)ダミーの
円2つと長方形1つを配置することでトラック内の線を消すことができました。
myRangeの言うとおり、縦バージョンも作ってみまして、綺麗にトラック内の線が消えました。
これからは、もう少し質問内容を考えてから質問するようにします。
色々とありがとうございました。
では、失礼します。
No.7
- 回答日時:
またまた登場、myRangeです。
まだ意味が掴みかねます。(^^;;;
問題を整理してみましょう。
質問は、Shapeの四角形と円(楕円)でトラックを作ったが
内部に余計な"縦線と内側の丸半分"があるのでそれを消したい、
ということでしたね。
で、
>ダミーの四角で"縦線と内側の丸半分"は消えたんですが、
このようにダミーの四角形で、余分な線を消すことができたわけですから
質問は解決したと思うのですが。。。。
にも拘わらず、
>中央の四角(横の長さ)が短くなると、内側の丸半分の一部が
>ダミーの四角からはみ出して見えてしまします。
なぜ、完成形から更に、四角形の幅を変えたりするのでしょうか。
当方がアップした画像が最終形ではないのですか?
何をやりたいのかも一度詳しく補足した方がいいと思われます。
以上です。
myRangeさん
説明が悪くてすみません。
myRangeさんの教えていただいたとおり、
トラック図形を描くことができましたが、
トラックの幅(横)が可変値(人が値入力するため可変)
という事を書き忘れていました。
すみません。
ですので、トラックの幅を短くしたときに
今まで隠れていた丸半分の一部が見えて
しまっているという状況です。
No.6
- 回答日時:
>[開発環境]
OS:WindowsXP/Pro SP3
この環境で、なぜ、最新版のVBを使わないんですか
どうしても、仕事で,VB6を使わないといけないとか
学校の指定とか、(学校なら、net使うかな??)
使わないといけない理由が、あるのですか???
CPUのスペックの低いパソコンに、XPを
入れているのですか??
netだと、描画も塗りつぶしも、
参考資料が、沢山、netに転がっているのですが。
因みに、net のexpress版なら、無料ですよ。
tom11さん
パソコン一式は先輩から引き継いだお古で、
プログラムも以前に作ったもので、これを変更して
しますので、XP&VB6を使っています。
No.3
- 回答日時:
回答2、myrangeです。
>四角の横の長さを短くしていくと、反対側の円が塗りつぶした
>四角形からはみ出てしまいました。
ちょと意味がわかりかねます。(^^;;;
で、画像を添付しました。
添付画像のイメージでいいのですか?
No.1
- 回答日時:
横長の円とは楕円のことでしょうか。
例えば
Shape1.Top = 0
Shape1.Left = 0
Shape1.Height = 1000
Shape1.Width = 4000
Shape1.Shape = 2
Shape1.BorderColor = vbRed
Shape1.Shape の値を 0~5で変えると、いろいろな図形になります。
samtomsanさん
回答いただき、ありがとうございます。
長円とは楕円ではなく、直線を上下に二本引き、
左右には半円がくっ付く形です。
競技場や競馬場や学校の校庭にあるトラックような(小判のような)形です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Shapeコントロールの.NET移行方法
Visual Basic(VBA)
-
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
VBの画面サイズについて
Visual Basic(VBA)
-
-
4
VB.netでのライン描画方法がわかりません
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
checkbox付きListViewで デフ...
-
カスタムコントロールInputMan...
-
ADOのCursorLocationプロパティ
-
DataGridViewで行の展開みたい...
-
エクセル入力規制リスト行数
-
Wordテキストコントロールが未...
-
PictureBoxの背景色変更(VB.NET)
-
MFCでbitmapを背景にしてstatic...
-
エクセルの画像にツールチップ...
-
MSFlexGridとDataGridの違いに...
-
ACCESS2010 ActiveXコントロー...
-
VB6でPNGファイルを扱うには?
-
VB.NETで縦書表示をしたいので...
-
デザインモードを解除すると消...
-
VC++でエクセルのような表
-
テキストボックス(VBA)でEnter...
-
コンボボックスの高さを変更し...
-
カスタムコントロール作ってま...
-
リストコントロールのデータの...
-
エクセル VBA ユーザーフォーム...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ADOのCursorLocationプロパティ
-
テキストボックス(VBA)でEnter...
-
Wordテキストコントロールが未...
-
エクセルの画像にツールチップ...
-
チェックボックスの文字色の変え方
-
checkbox付きListViewで デフ...
-
C# TEXTが空白であるLABELは何...
-
VBからエクセルのテキストボ...
-
コンボボックスの高さを変更し...
-
デザインモードを解除すると消...
-
C# アプリ終了時に設定を記憶...
-
VB6でLabelの最前面にText Box...
-
Enabled=Falseのテキストボック...
-
DataGridViewで行の展開みたい...
-
VB.NETで縦書表示をしたいので...
-
エクセル入力規制リスト行数
-
TableLayoutPanelでspan
-
MSFlexGrid
-
ACCESS2010 ActiveXコントロー...
-
MFCでbitmapを背景にしてstatic...
おすすめ情報