70コメント20KB

★VBTips&参考用スレ★

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

NGNG

みなさんで、少しずつVBに関するテクニック、裏技ナドナドのコードを書き込んで辞書みたいにしましょう！
他スレからのこのスレへの直リンOK!
他スレへのこのスレのコピペOK!

さぁ、みんなで知識を広げていきませんか？

0002例

NGNG

クリップボードへ文字列をコピーする
'*************************************
'フォーム上に必要なコントロール:
'CommandButton(Command1)、TextBox(Text1)
'*************************************
Private Sub Command1_Click()
'もし、選択されている文字があったら
If Text1.SelLength > 0 Then
'クリップボードにそれをコピー
Clipboard.SetText Text1.SelText
End If
End Sub

クリップボードへ文字列を切り取りする
'*************************************
'フォーム上に必要なコントロール:
'CommandButton(Command1)、TextBox(Text1)
'*************************************
Private Sub Command1_Click()
'もし、選択されているテキストがあったら、
If Text1.SelLength > 0 Then
'それをクリップボードにコピーし、その文字列を初期化
Clipboard.SetText Text1.SelText
Text1.SelText = ""
End If
End Sub

0003デフォルトの名無しさん

NGNG

なんかこういうの前あったね。結構好きだったんだけどなあ。

00041

NGNG

>>3
だからこそやるんです！
ここから逆引きすれば便利でしょ。
プログラマのみなさんの腕に期待しています。
>>2の例を参考に書き込んでください

0005デフォルトの名無しさん

NGNG

>>2
コマンドボタンは必要ないし、TextBoxは見ればわかる。
コントロールを説明してる２行はムダにしか見えない。
過去スレみたいに関数にすれば？

>>3
まだ生きてるけど。

VB-みんなで関数を作る-
http://pc.2ch.net/test/read.cgi/tech/1009174392/l50

0006デフォルトの名無しさん

NGNG

>1
◆診断結果◆
クソスレ自覚症状無し

0007デフォルトの名無しさん

NGNG

2ch のスレッドは参照性が悪いから集まったらサイト作ってほしいね。
俺は VB 使わないけど。

0008デフォルトの名無しさん

NGNG

Private Sub Form_Load()
　　End
End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝終了＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

0009デフォルトの名無しさん

NGNG

http://pc.2ch.net/test/read.cgi/tech/1012396317/
＝＝＝＝＝＝＝＝＝＝＝＝＝終了＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

0010デフォルトの名無しさん

NGNG

>VB-みんなで関数を作る-
そのスレも糞スレだったな。
間違いだらけの関数に誰も突っ込んでないところが痛すぎ。
このスレも同じ匂いがする。

>>2
コピーするときはまずClipboard.Clearしな。

0011デフォルトの名無しさん

NGNG

ただいまより、駄目なコードを添削するスレに変わりました。

0012デフォルトの名無しさん

NGNG

★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
【実際あったやり取り／マジネタです。】
浜崎「一番前で座ってるよ。みんなどう思う？感じ悪いよね～。」
客「お前らだよカス！あゆに迷惑かけんな！　さっさと立てよ！」
母親「すみません、この子足が不自由で立てないので・・・」
客「うざ～～、あゆに迷惑かけんならくんなよ！」
客「そうだそうだ！帰れよー！」
母親「本当に申し訳・・（泣）・・・」
客「お前ら帰れ、邪魔邪魔」
娘「お母さん・・もう帰ろう・・本当にごめんなさい」
母親「・・・（泣）」
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
身障者とか関係者とか関係なく、今回彼女がそういう言葉を出した
こと自体が問題。
その、最前列に座っていたのが例え身障者でなくて、普通の人or関係者
だったとしても、もし会場のどこかに身障者の人がいて、それを聞いて
いたとしたら、ちょっと傷つくと思うよね。
そういうちょっとした言葉の配慮って、普通の人間だったら
誰しも当たり前に持ってるはずなのに、それがない浜崎あゆみって
かなりの偽善者。　それを支持する奴の人間性も疑う。
偽善者がああいう歌歌ってもしらけるだけ。
そんな自分に酔いしれて歌ってている姿は　かなりアホくさいぞ。

0013デフォルトの名無しさん

NGNG

>12
その話知ってるからいまさら言われなくてもいいよ。
１０円やるから帰れ。ホレ (´ー`)ノ　彡⑩

0014デフォルトの名無しさん

NGNG

結局こいつって謝罪したの？

0015デフォルトの名無しさん

NGNG

鮎板に行ってくれ
http://tv.2ch.net/ami/

0016デフォルトの名無しさん

NGNG

自作関数を実際に使うには、引数チェックが欠かせない。
しかし、こういうとこでそれをすると、見通しが悪くなるしなあ。

0017デフォルトの名無しさん

NGNG

VBコードは使い捨て

00181

NGNG

関数を作るスレではありません。そこんとこ間違わないで下さい。

>>5あんたにゃ親切心てモノがわからないのかゴルァ
ここは初心者がみてもわかりやすいものを書くんだよ。

0019デフォルトの名無しさん

NGNG

ナンバーズ3の当選番号を予想する関数

Private Function Numbers3() As String
Dim Numbers As Integer
Randomize
Numbers = Int(1000 * Rnd)
Numbers3 = Format(CStr(Numbers), "000")
End Function

ナンバーズ3の予想番号を文字列として返します

0020デフォルトの名無しさん

NGNG

>>1
ネタもう無いの？

00211

NGNG

>20
無いです。つーか飽きた。
終了

0022なんだ

NGNG

なんかすごいネタでも用意してるのかと思った。

0023デフォルトの名無しさん

NGNG

この手のｽﾚって伸びねーなー。
関数自作すんのめんどくさいもんなあ。

00241

NGNG

>>21カタんな
みなさん、終わってないっすよ

ていううか何度言ったら分かるんですか？
関数を作るスレじゃないってば。。。
VBでよく使うテクニックを書き込んでいくんですよ。

0025くさいまらそん

NGNG

乳くさいスレだこと！

0026デフォルトの名無しさん

NGNG

.レス削除依頼はこちら
プログラム技術板レス削除依頼
http://teri.2ch.net/test/read.cgi/saku/987026739/l50

スレ削除依頼はこちら
スレッド削除依頼＠プログラム板
http://teri.2ch.net/test/read.cgi/saku/983679716/l50

0027デフォルトの名無しさん

NGNG

>>2
これってテクニックか？
ただ単にコードかいてるだけだろ。

0028デフォルトの名無しさん

NGNG

>24
＞VBでよく使うテクニックを書き込んでいくんですよ。
おれのテク：VBを使わない。

00291

NGNG

>24
は騙り。
だから終了だっての！

0030デフォルトの名無しさん

NGNG

'_________________________________________________________________________________
'SplitEx関数
'半角・全角Space Tabコードで文字を分割して返す
'引数はstring型
'戻り値は動的配列の文字列変数である
'_________________________________________________________________________________
Public Function SplitEx(strText As String) As String()
　　 Dim strWithoutSpace As String
　　 Dim strSpaceSplit() As String
　　Dim strTabSplit() As String
　　Dim strSplit() As String
　　Dim intI As Integer
　　Dim intJ As Integer
　　Dim intK As Integer
　　Dim intCtr As Integer
　　Dim strModori() As String

　　 '先頭と最後のSpaceを削除
　　strWithoutSpace = Trim(strText)
　　 'Spaceで分割
　　strSpaceSplit = Split(strWithoutSpace)

　　intCtr = 0
　　 '全角Spaceで区切る
　　For intI = 0 To UBound(strSpaceSplit)
　　　　strSplit = Split(strSpaceSplit(intI), Chr$(-32448))
　　　　'Tabで区切る
　　　　For intJ = 0 To UBound(strSplit)
　　　　strTabSplit = Split(strSplit(intJ), Chr$(9))
　　　　　　For intK = 0 To UBound(strTabSplit)
　　　　　　　　intCtr = intCtr + 1
　　　　　　　　ReDim Preserve strModori(intCtr)
　　　　　　　　strModori(intCtr) = strSplit(intJ)
　　　　　　Next
　　　　Next
　　Next

　　 SplitEx = strModori
End Function

0031デフォルトの名無しさん

NGNG

>30
死ね

0032デフォルトの名無しさん

NGNG

>>30
ブビ房って本当にダメだな。
VBをたいして知らない俺でも、もうすこしスマートにかけるよ。
VBやってると基礎力がつかないって良い見本だな。

0033感度オッケー？

NGNG

１を応援する
'*************************************
'フォーム上に必要なコントロール:
'ClitButton(Command1)、PleasureBox(Cunt1)
'*************************************
Public Sub Thread1_Terminate()
　　If Thread1 = StrConv("親切", vbNarrow) Then
　　　　Debug.Print Format("関連スレ紹介")
　　Else
　　　　MsgBox "事故厨！", vbCritical, "真相"
　　End If
End Sub

0034デフォルトの名無しさん

NGNG

VBで作っても無駄なコードが増えるだけ。

0035デフォルトの名無しさん

NGNG

＞VBで作っても無駄なコードが増えるだけ。
（これはマジですよ）

0036デフォルトの名無しさん

NGNG

ＶＢで仕事してて、「あーあ、今オレ相当無駄な努力してるよなー」
って時々思う。

0037デフォルトの名無しさん

NGNG

'_________________________________________________________________________________
'SplitEx関数
'半角・全角Space・Tabコードで文字列を分割して返す
'引数はString型
'戻り値は動的配列の文字列変数
'_________________________________________________________________________________
Public Function SplitEx(strText As String) As String()
　　Dim strWork() As String
　　strWork = Split(Replace(Replace(Trim(strText), "　", " "), vbTab, " ")," ")
　　SplitEx = strWork
End Function

0038デフォルトの名無しさん

NGNG

>>30
VB厨房って、VBは生産性高いってことあるごとに言うけど
こんなコード書いてる連中に「生産性」なんて語って欲しくないなぁ。

0039３０

NGNG

なんか私の書いた糞ｺｰﾄﾞがご迷惑をおかけしているようですな・・・。

だが、しかし！　たしかに>>30は非効率的かつ生産性ゼロの糞コードだが
VBいじってる人って
①業務でDB管理してる人
②「簡単そう」という理由だけで始めたｻﾝﾃﾞｰﾌﾟﾛｸﾞﾗﾏｰ

のどっちかだから、私のような②の人間にとっては
「書いて、動いて、目的を果たせば」それでよいのだ。

0040デフォルトの名無しさん

NGNG

なんでもかんでもＶＢで作ろうと考えてるヴァカにはうんざり

0041デフォルトの名無しさん

NGNG

>37も全く汎用性の無いコード。

0042デフォルトの名無しさん

NGNG

>>40
そんなつもりはない。
力仕事はＣで書いて、DLLにしてもらう。

0043デフォルトの名無しさん

NGNG

>>39
なんの益にもならないオナニーを公衆の面前でやらないでください。

0044デフォルトの名無しさん

NGNG

>>43
Ｃのへぼグラマーは、ＶＢを叩くしかないじゃん(笑)。

0045デフォルトの名無しさん

NGNG

30=44=ヘボプログラマーだろ？

0046デフォルトの名無しさん

NGNG

Visual Basicは世界一ユーザーが多いプログラミング言語です。
ExcelでもWordでもAccessでも使えます。
ASPやActiveXコントロールもVisual Basicと同じ文法です。
Windowsの標準スクリプト言語であるWSHもVisual Basicを採用しています。

0047コピペで寒便

NGNG

なんでもかんでもＶＢで作ろうと考えてるヴァカにはうんざり

0048デフォルトの名無しさん

NGNG

自分がM$に躍らされてる犬だと気づかない>>46でした:p

00491

NGNG

荒れてきたんでｽﾚｯﾄﾞ削除依頼出してきます。
ご迷惑おかけしました。

0050デフォルトの名無しさん

NGNG

>>49
BASIC系のスレはどれも荒れるよ。
粘着質の荒らしが常駐してるから。

0051デフォルトの名無しさん

NGNG

つうか>>49はコピペだろ

00521

NGNG

>>51
自分がM$に躍らされてる犬だとやっと気づきました。
ご迷惑おかけしました。

0053デフォルトの名無しさん

NGNG

＞41
汎用性のあるコードってどんなの？

00541

NGNG

勝手にカタラナイデください。ホンモノは私です。
といううか私は自分で開いたスレを終わらそうとなんか全然思っていません。

本格的VCプログラマーとかはこんなところで油売ってないでどこか正しい場所へ逝ってください。
ここはVBプログラマーのために開いたスレです。
よく、本とかにも「VBでよく使うTips」とか言って売ってるのがあるでしょう。
このスレはそんな感じでコードを書き込んでいって本なんか全然かなわないぐらいにしましょう、って言ってんです。

VBプログラマーの皆さん、頼みますよ。

0055デフォルトの名無しさん

NGNG

他力本願晒しage

0056デフォルトの名無しさん

NGNG

FOR i = 1 TO 10
PRINT i
NEXT i

0057デフォルトの名無しさん

NGNG

>>54
「VBでよく使うTips」なんて本いらないし買わない。
せいぜいパラパラと立ち読みする程度。
Tipsっていったってヘルプのサンプル程度だし。
ヘルプやインターネットで十分。

0058デフォルトの名無しさん

NGNG

っていうか1ががんばらないと、だれもついてこないぞ。
とにかくどんどんテクニックを公開してみろ>1

0059デフォルトの名無しさん

NGNG

>>53
あのコードは半角・全角Space・Tabでしか区切れないし、
そんなことする機会って少ないし使い道が少ないってことだろ。
そのまんまSplitの方が便利だし広くいろんな方面で使える(=汎用性がある)
SplitExってSplitより機能低下してるし。

0060デフォルトの名無しさん

NGNG

今57がいいこと言った！

0061デフォルトの名無しさん

NGNG

>>54
だから、本格的プログラマーはVB厨房なんて相手にしないって(笑)

>>59
37は30に対する皮肉ってこともわからんの？(笑)

0062デフォルトの名無しさん

NGNG

61=1
もう首吊って！
違う世界でまた会おうね。

0063デフォルトの名無しさん

NGNG

スレ最初から読んでみた
ﾜﾗﾀ
VBってずいぶん生産性高そうだねぇ

006459

NGNG

>>61
俺は>>53に言ったつもりなんだが・・・。
いくらなんでも>>30がダメなコードで>>37が皮肉なのぐらいわかるって。

0065デフォルトの名無しさん

NGNG

今気づいたんだが、VirtualBoyの裏技を書き込むスレだったのか！？

0066デフォルトの名無しさん

NGNG

だから何度も言ってる様に、ウィルスバスターのTipsだってば

0067デフォルトの名無しさん

NGNG

>>65-66
君等はそれが面白いと思ったわけだ。

0068デフォルトの名無しさん

NGNG

>>67
おまえもなー

0069俺はD使いだけどさ、

NGNG

真面目にやろうよ、ここは技術板なんだからさ。

0070デフォルトの名無しさん

NGNG

>>69
だったら、まず君が書きなさい。
ま、どうせネタだろうけど。

■ このスレッドは過去ログ倉庫に格納されています