VB初心者質問スレ Part4
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNGhttp://pc.2ch.net/test/read.cgi/tech/1000523122/
0685デフォルトの名無しさん
NGNGReplace("アブーン","ーン","～ソ")
0686デフォルトの名無しさん
NGNGText1.Text = Replace(Text1.Text, "ーン", "～ソ")
ほかの「ーン」が変換されたくなかったら、
各４字で計３回やればいい。
0688Nana
NGNG0689デフォルトの名無しさん
NGNGhttp://www.symantec.co.jp/region/jp/sarcj/data/w/w32.goner.a%40mm.html
0691デフォルトの名無しさん
NGNGこれってどうやって出すんですか？
0692デフォルトの名無しさん
NGNGキャプションに - を入れる。
0694デフォルトの名無しさん
NGNG「メニュー」をキーワードにすると、「メニュー エディタで作成」という
項目が見つかるはず。
0695デフォルトの名無しさん
NGNGMSDNライブラリ(ヘルプ)の「メニュー (Menu) コントロール」っていう
一番基本的なページに書いてあるじゃん。
全部読めとは言わないけど、ヘルプの目次ぐらいは目を通しておくといいよ。
ヘルプの引き方もプログラミング能力の一部だからね。
えらそうでスマソ。
0696デフォルトの名無しさん
NGNGコマンドボタンでも使うよ。
0697692
NGNGｽﾏｿ 区切り線と勘違いした。
「保存(&A)」にするとよろしいかと
0698デフォルトの名無しさん
NGNG0699デフォルトの名無しさん
NGNGもう質問してるね。
0700698
NGNGしまったっ！
0701デフォルトの名無しさん
NGNGあと、使用中のソケットの列挙方法を教えてくれ。
あと、複数のイベント(FD_WRITEとか)をハンドラしたいんだけど…。
0702Nana
NGNGｻﾝｸｽﾚｽ
ウィルス作るためにVBマスターしてみます
0703名無しさん
NGNG0704デフォルトの名無しさん
NGNGrename();
0705デフォルトの名無しさん
NGNGなんか感謝してないみたい（ｗ thanksless
0706( ﾟдﾟ)
NGNGDBGRIDをデータと連結しないで使ってるサンプルどっかにない？
（なんだか訳わからんぞ、これ）
0707デフォルトの名無しさん
NGNG具体的にどういうもんを作りたいからそうしたいのん？
送受信データ監視ってそういうイベントとメソッドあるでしょ？
ＦＴＰ関係？Ｐ２Ｐみたいなの作んの？
0708
NGNGVC++5エンタープライズが7000円で
売ってたけど買いですか？
ちなみ割れじゃなくて中古ソフトとして。
0709デフォルトの名無しさん
NGNGってか、意味あるんかｿﾚ？
DataをBoundするGridだからGridなんであって...
0710デフォルトの名無しさん
NGNG0711デフォルトの名無しさん
NGNGそれでもいいし、Form で作ってもいい。
それよりも、「プロジェクト」-「フォームモジュール」-「バージョン情報」で
簡単にバージョン情報が追加できる。
0712デフォルトの名無しさん
NGNG0713(
NGNG0714712
NGNGできやした。Tnx。
0715デフォルトの名無しさん
NGNG他に何か設定しないといけないのでしょうか。
0716デフォルトの名無しさん
NGNG文字列の置き換え（Replace）で、「改行」を探知できますでしょうか
ある文章から「改行」を詰めたいんですけど
よろしくお願いします
0717デフォルトの名無しさん
NGNG改行を消したいって意味？
vbCrLfを指定するだけじゃ・・？ 違った？
0718デフォルトの名無しさん
NGNG0719デフォルトの名無しさん
NGNG空行を無くしたいなら、vbCrLf & vbCrLf → vbCrLf でオッケー。
もしスペースだけの行があったら、先にそれを始末する必要があるけど。
0720デフォルトの名無しさん
NGNG0721デフォルトの名無しさん
NGNGここの過去ログだけでもそれなりのものは作れそうだが
0722デフォルトの名無しさん
NGNGでBMPファイルを開けるのですが
画像ファイル(BMP.JPG.GIF)
というように１つのフィルターで複数開けるようにしたいのですが
どのようにすればよいのでしょうか？
0723デフォルトの名無しさん
NGNGCommonDialog1.Filter = "ピクチャ (*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif"
0725デフォルトの名無しさん
NGNGVBとどう違う???
VBはやっぱ難しい？
アホな質問でｽﾏｿ。
0726P061198129228.ppp.prin.ne.jp
NGNG追加したフォームなどをメニューエディタで作った項目から
開くにはどのようにしたらよろしいのでしょうか？
0727デフォルトの名無しさん
NGNGVBとVBAでは言語規則は殆ど同じ。
言語というよりコントロールの使い方がキモやね。
違うところといったらVBはコントロールとかが作れるってことかな。
（EXEが作れるかどうかという違いも当然あるけど）
その分難しいといえば難しいけど、
リンゴとミカン、どっちがおいしい？って聞いてるみたいなもんだよ。
好みや使い方でも変わってくる。
でもまぁ、VBAでできることは全部VBでできるけど
逆は無理なことがあるってかんじかな。
0728デフォルトの名無しさん
NGNGLoad frmSecond
frmSecond.Show
0729725
NGNGThanks!
0730デフォルトの名無しさん
NGNGCドライブのルートから、全ディレクトリ名とファイル名を
-----------
■C:\
[DIR]
Documents and Settings,Program Files,WINNT・・・
[FILE]
AUTOEXEC.BAT,CONFIG.SYS・・・
■C:\Documents and Settings\
[DIR]
Administrator,All Users,Default User・・・
■C:\Documents and Settings\Administrator\
[DIR]
Application Data,Cookies,Favorites・・・
[FILE]
NTUSER.DAT,ntuser.dat.LOG・・・
・
・
・
■C:\Program Files\
[DIR]
・・・
-----------
こんな風にTXTファイルに書き出したいんですけど、どうもループの
かけ方がうまく考えられません。どなたか上手い考え方あれば
ご教授ください。お願いします。
0732デフォルトの名無しさん
NGNG0734732
NGNG0736デフォルトの名無しさん
NGNGIf...Then Exit Do って書き方ってあまり良くないですか？
それとcontinueないから全然Do...Loop使えないんですけど。
0737デフォルトの名無しさん
NGNGいいんじゃないの？
continueないと不便だけど、Ifでなんとかできるでしょ。
0738デフォルトの名無しさん
NGNG0739デフォルトの名無しさん
NGNGLabel1.Caption = "AAA" & vbCrLf & "BBB"
0740デフォルトの名無しさん
NGNGData Environmentを追加したいのですが方法がわかりません。
プロジェクト→コンポーネント→デザイナタブ、の中にData Environmentチェックボックスが存在しません。
また、表示→データビューウィンドウ→DataEnvironmentの追加を選ぶと、
「ActiveXコンポーネントはオブジェクトを作成できません」というエラーになります。どなたか対処法を教えていただきたいのですが?
0741厨房王
NGNGプログラムは努力の末、完成しました。でもウイルスを作ろうと思
ったのでは決してありません。現在はデータベースを構築し、筆王
に近い形のアプリを作成したいと思っています。あれぐらいなら可
能だと思うのですが、みなさんはどう思われますか。
味噌を言えば、はがきの文面をどのようにして、VBで作成するかで
すが、まずはデータベースから。分からない事があったら、またお
願いします。
0742デフォルトの名無しさん
NGNGこんちわ。多分、貴方を以前ウイルス作成者ではないかと疑ったと
貴方が思っている者です。
心配しないでください。あれくらいの事がわからない奴に
ウイルス程度でも作れるとは思ってませんから。
市販アプリと同じようなものが作れると思ってしまうのは
初級後半～中級者が陥りやすい罠ですが、誰もが通る道ですので
気にしないでがんばってくださいね。
まぁ俺も厨房っちゅうことだ（藁
俺でわかることなら答えるんでまたきーてくれや。
0743デフォルトの名無しさん
NGNGようには見えないモノも十分作れます。
ただし、そこまでしてVBを使う事に意味があるかどうかは各々
の価値観次第です。
0744デフォルトの名無しさん
NGNG繰り返し公式なんですけど
x2=a*x1+5*x1/(1+x*1^2)+y1,y2=-x1
におけるカオスを求めたら
アニメーションするプログラムであることがわかったんですけど
これだけではだめな見たいなんです
0745デフォルトの名無しさん
NGNG0746nks
NGNG変形する簡単な方法を、どなたかご存知ないでしょうか？
教えてください。
0747名無しさん
NGNGピクチャボックス自体は大きさしか変わらない。
描画したものを変形させるってことなら計算。
0748デフォルトの名無しさん
NGNGフォームの形なら比較的簡単に変えられますが、、、
ピクチャボックスは分かりません ｽﾏｿ
0749デフォルトの名無しさん
NGNGPictureBoxの中に表示されてる画像もせっとで変形って事？
それとも、枠のみ変形(画像自体は変形しない)って事？
前者は難しい。
後者なら、簡単だじゅ。
0750744
NGNGわたし独りの力じゃどうにも。。。
0751nks
NGNG0752748
NGNGピクチャボックスだけならこんな感じかな？ イカサマくさいけど
フォームにピクチャボックスを配置して、次のコードをコピペ
'標準モジュール
Option Explicit
Public Declare Function SetWindowRgn Lib "user32" ( _
ByVal hWnd As Long, _
ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long
Public Declare Function CreatePolygonRgn Lib "gdi32" ( _
lpPoint As POINTAPI, _
ByVal nCount As Long, _
ByVal nPolyFillMode As Long) As Long
Public Declare Function DeleteObject Lib "gdi32" ( _
ByVal hObject As Long) As Long
Public Type POINTAPI
x As Long
y As Long
End Type
Public Const ALTERNATE = 1
Public Const WINDING = 2
0753748
NGNGOption Explicit
Private mlngRet As Long
Private mlngFormation As Long
Private Sub Deformation(lngFormation As Long)
Dim hRgn As Long
Dim lpPoint(1 To 4) As POINTAPI
Select Case lngFormation
Case 1
lpPoint(1).x = 100
lpPoint(1).y = Picture1.Top
lpPoint(2).x = Picture1.Width
lpPoint(2).y = Picture1.Top
lpPoint(3).x = Picture1.Width - 100
lpPoint(3).y = Picture1.Top + Picture1.Height
lpPoint(4).x = Picture1.Left
lpPoint(4).y = Picture1.Top + Picture1.Height
Case 2
lpPoint(1).x = 100
lpPoint(1).y = Picture1.Top
lpPoint(2).x = Picture1.Width - 100
lpPoint(2).y = Picture1.Top
lpPoint(3).x = Picture1.Width
lpPoint(3).y = Picture1.Top + Picture1.Height
lpPoint(4).x = Picture1.Left
lpPoint(4).y = Picture1.Top + Picture1.Height
0754748
NGNGlpPoint(1).x = Picture1.Width \ 2
lpPoint(1).y = Picture1.Top
lpPoint(2).x = Picture1.Width
lpPoint(2).y = Picture1.Top + Picture1.Height \ 2
lpPoint(3).x = Picture1.Width \ 2
lpPoint(3).y = Picture1.Top + Picture1.Height
lpPoint(4).x = Picture1.Left
lpPoint(4).y = Picture1.Top + Picture1.Height \ 2
Case 4
lpPoint(1).x = Picture1.Left
lpPoint(1).y = Picture1.Top
lpPoint(2).x = Picture1.Width
lpPoint(2).y = Picture1.Top
lpPoint(3).x = Picture1.Width
lpPoint(3).y = Picture1.Top + Picture1.Height
lpPoint(4).x = Picture1.Left
lpPoint(4).y = Picture1.Top + Picture1.Height
End Select
hRgn = CreatePolygonRgn(lpPoint(1), 4, WINDING)
Call DeleteObject(mlngRet)
mlngRet = SetWindowRgn(Picture1.hWnd, hRgn, True)
End Sub
0755748
NGNGmlngFormation = 1
With Picture1
.BorderStyle = 0
.Top = Me.ScaleTop
.Left = Me.ScaleLeft
.Height = Me.ScaleHeight
.Width = Me.ScaleWidth
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call DeleteObject(mlngRet)
End Sub
Private Sub Picture1_Click()
Call Deformation(mlngFormation)
mlngFormation = mlngFormation + 1
If mlngFormation > 4 Then mlngFormation = 1
End Sub
0756748
NGNGはずしてたらｽﾏｿ
画像の変形は面倒
0757748
NGNGスケールモードはピクセルにしてね
0758デフォルトの名無しさん
NGNG質問の要点が分からん
0759744
NGNGすみません返信ありがとうございます
この繰り返し公式のプログラムを実行すると、
アニメーションするんですが、
これ以外にも意味があるらしいんです
0760nks
NGNG0761デフォルトの名無しさん
NGNGﾃﾞｽｸﾄｯﾌﾟってｲﾝｽﾄｰﾙしている環境によってPATHが違うじゃないですかー。
これって、どうやって指定したら良いんですかい？
0762デフォルトの名無しさん
NGNGそのくらい自分で調べれ
http://www.google.com/search?num=100&hl=ja&q=%83f%83X%83N%83g%83b%83v%81@%83p%83X%81@%8E%E6%93%BE&lr=
0763デフォルトの名無しさん
NGNG何を聞きたいのか、それでは解りません。
0764761
NGNG0765デフォルトの名無しさん
NGNGオレのデスクトップに、ファイルやショートカットを
勝手に置くようなアプリは１００回削除してやる！
0766デフォルトの名無しさん
NGNG成功してもバックグランドでEXCELが解放されなくて残っちゃうんですけどどうすれば
いいんしょうか？
ちなみにソースはこんな感じ
出先なんでスペルミスとかあるかもしれないけど起動と読み書きと閉じることは成功
してます。
誰か教えてください。
dim exl as object
dim wb as object
dim ws as object
set exl=createobject("excel.application")
set wb=exl.application.workbooks.open(既存のエクセルファイルのフルパス)
set ws=worksheets(上記エクセルファイルの参照するシート名)
ここから開いたエクセルファイルの読み書きをする
wb.save
wb.close
exl.Quiet
set ws=nothing
set wb=nothing
set exl=nothing
0767デフォルトの名無しさん
NGNG本質的なことではないかもしれないけど、
exl.Quiet → exl.Quit
ではないかと
0768デフォルトの名無しさん
NGNG0769７６６
NGNGただのスペルミスです、無視してください（恥
＞＞７６８
黙らせた後どうしたらよいのでしょうか？
0770767
NGNGSet ws = Worksheets("Sheet1")
↓
Set ws = wb.Worksheets("Sheet1")
exl.Quiet
↓
exl.Quit
0771７６６
NGNGありがとうございます、試してみます。
0772デフォルトの名無しさん
NGNGGetChunkにicByteArrayを渡した後の処理が分かりません。
こっち系のサンプルが乏しいものでよく分かりません。
0773デフォルトの名無しさん
NGNGなにをしたいの？
「GetChunkにicByteArrayを渡した後の処理」って
貴方がなにをしたいかによって変わってくるよ。
それともGetChunkをどこでやればいいのかとかがわからないとか？
それならヘルプみてみ。ばっちり書いてあるよ。
icByteArrayだろうがicStringだろうが流れはかわらんからね。
バイト配列の使い方がわからないならそれ以前の問題やね。
0774デフォルトの名無しさん
NGNG0775デフォルトの名無しさん
NGNGTextboxやLabelの左枠と文字の間隔って変えられないでしょうか。
-----------------
|←ｺｺ→ああああ
-----------------
やっぱ無理すかね・・・？
0776名無しさん
NGNGスペース挿入、ってこんな簡単な事じゃないんだろうね
0777デフォルトの名無しさん
NGNGのってどうすればいいですか？
OLEコンテナとかで開けばいいんですか。
0778デフォルトの名無しさん
NGNG関連付けられたアプリならShellExecuteっていうのは既出だが
0779デフォルトの名無しさん
NGNGVBだけでやるなら、PictureBoxの中に
BorderStyle=0にしたTextBox置けばいいんでない？
（背景色を合わせれば見た目わからんよ）
いやならTextBoxにEM_SETRECTでも送ればできるんでないかな。
0781デフォルトの名無しさん
NGNGSendMessageとかのAPIでEM_SETRECTというメッセージを
TextBoxに送ると、上下左右のマージンを変えられるんよ。
（ただしMultiLine=Trueの場合ね）
コンテナにコントロールを入れて使うってのVBではよくやるよ。
Enabled=Falseにしたときにグレーにしたくない場合とか
PictureBoxやFrameとかのコンテナにTextBoxを入れて、
コンテナの方のEnabledを変えるんよ。
すると入力はできなけど見た目は変わらないってのができる。
Enabledを変更するコントロールが多いときなんかも便利。
Lockだとフォーカスが移っちゃうけどこれだと移らないしね。
ちなみにLock=TrueにしてもShift+Insで変更できちゃうんだよね。
このへんきちんとしてないプログラムって多いだろうな。
0782デフォルトの名無しさん
NGNG僕、>>780さんじゃないですが、初心者です。
ほんと勉強になります。
その「ちなみに」を回避するのって、
キーコード取って禁止するしかないんですか？
0783野口
NGNGWrite #1, #02/01/05#
↓
"02/01/05"
このダブルクォーテーションを付けない方法はないのかい？
0784777
NGNGすいません。
ヘルプで検索したら全部英語でした…
■ このスレッドは過去ログ倉庫に格納されています