トップページ⇒tech
108コメント15KB

ＶＢ６でコードリレーせよ

■ このスレッドは過去ログ倉庫に格納されています
0001厨房天国NGNG
鉄の掟
１．１レス１ステートメント
２．永久ループを作った者は晒す
３．なるべく動作するものを目指せ
４．実用性はやや問う
５．モジュールはフォームのみとする　コントロールはない
６．イベントプロシージャも可　重複するな
７．変数はプロシージャレベルだけとする　宣言せよ
８．必要な限り　注釈つけよ

はじめ〜
'フォームのプロパティ設定ここでしといてくれよ〜（ﾜﾗ
'フォーム名だけ設定済みとする　Form1でいいや（ﾜﾗ
Private Sub Form_Load()
0002デフォルトの名無しさんNGNG
End
Exit Sub
End Sub
0003デフォルトの名無しさんNGNG
Exit
0004名無し募集中。。。NGNG
Option Explicit
0005デフォルトの名無しさんNGNG
フォームモジュール一度解放〜
作り直しだ
>>4からだ
Private Sub Form_Load()
0006デフォルトの名無しさんNGNG
Private Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
0007デフォルトの名無しさんNGNG
'VB コードスレ
'★VBTips&参考用スレ★
'http://pc.2ch.net/test/read.cgi/tech/1012396317/
'VB-みんなで関数を作る-
'http://pc.2ch.net/test/read.cgi/tech/1009174392/
'VBでアクロバットなソースを集める
'http://pc.2ch.net/test/read.cgi/tech/1012490968/
'VBのコードでVBをけなすスレ
'http://pc.2ch.net/test/read.cgi/tech/1013243307/

'しりとりスレ
'プログラム技術板シリトリ！
'http://pc.2ch.net/test/read.cgi/tech/985284398/
'C言語でしりとりをしましょう♪
'http://pc.2ch.net/test/read.cgi/tech/1010071472/
0008デフォルトの名無しさんNGNG
Call Sleep 11111111111111111111111111111111111119
0009デフォルトの名無しさんNGNG
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
0010デフォルトの名無しさんNGNG
Unload Me
0011デフォルトの名無しさんNGNG
エラーだすな（ﾜﾗ
0012デフォルトの名無しさんNGNG
つーかあれだ。
ネタでも Form_Load() ではなく、 Sub Main() から開始しろよ。
その方が美しい。

> １．１レス１ステートメント
> ７．変数はプロシージャレベルだけとする　宣言せよ

もうｱﾌｫかと、ﾊﾞｶかと
0013デフォルトの名無しさんNGNG
'ピクセルにしろ〜
Me.ScaleMode=3
0014デフォルトの名無しさんNGNG
Private Declare Function GetGlyphOutline Lib "GDI" (ByVal hdc As Integer, ByVal uChar As Integer, ByVal fuFormat As Integer, lpgm As GLYPHMETRICS, ByVal cbBuffer As Long, ByVal lpBuffer As String, lpmat2 As MAT2) As Long
0015デフォルトの名無しさんNGNG
End　Sub
0016デフォルトの名無しさんNGNG
Me = Nothing
0017森川由加里NGNG
Show.Me
0018デフォルトの名無しさんNGNG
'フォームの設定が頼りないの〜（ﾜﾗ　ＡＰＩ宣言はプロシージャ外でな（ﾜﾗ
Private Sub Form_Click()
0019デフォルトの名無しさんNGNG
End Sub
0020デフォルトの名無しさんNGNG
Unload Me
Exit Sub
End Sub
0021デフォルトの名無しさんNGNG
'DirectDrawぐらいだせよ（ﾜﾗ
0022デフォルトの名無しさんNGNG
Private Sub Form_DblClick()
0023デフォルトの名無しさんNGNG
On Error Goto ErrorHandler
0024デフォルトの名無しさんNGNG
End Sub
0025デフォルトの名無しさんNGNG
Exit Sub
0026デフォルトの名無しさんNGNG
Dim DX As New DirectX10
0027デフォルトの名無しさんNGNG
>12に同意。
そっからフォームなりなんなり好きに作ればﾖｲ
0028デフォルトの名無しさんNGNG
Set DX = Nothing
0029デフォルトの名無しさんNGNG
>>12
>ネタでも Form_Load() ではなく、 Sub Main() から開始しろよ。

1>５．モジュールはフォームのみとする　コントロールはない
標準モジュールはないという罠。

0030デフォルトの名無しさんNGNG
>>3
0031デフォルトの名無しさんNGNG
Goto 2
0032デフォルトの名無しさんNGNG
If App.PrevInstance Then Unload Me
0033デフォルトの名無しさんNGNG
Text1.LinkMode = 1
0034デフォルトの名無しさんNGNG
Set Text1 = Nothing
0035デフォルトの名無しさんNGNG
Set App = Nothing
0036デフォルトの名無しさんNGNG
Goto 69
'69よ任せた！
0037デフォルトの名無しさんNGNG
End Sub

Alt + F4 っと、つかれた。
0038デフォルトの名無しさんNGNG
Unload 69
End Sub
0039デフォルトの名無しさんNGNG
'藁の取れるコードはないんか（藁
0040デフォルトの名無しさんNGNG
Dim ControlForm As New ControlForm
0041デフォルトの名無しさんNGNG
Unload ControlForm
0042デフォルトの名無しさんNGNG
'Mr.DoEvents
0043デフォルトの名無しさんNGNG
みんな1の思惑にまんまとひっかかりおって・・・
こういうのに弱いのね。この板（ｗ
0044デフォルトの名無しさんNGNG
Set m_NewConnection = New Connection
0045デフォルトの名無しさんNGNG
m_NewConnection.Open "Provider=SQLOLEDB.1;Persist Security Info=False;" + "User ID=unko;Initial Catalog=pubs;Data Source=kusaine"
0046VB.NETNGNG
Dim MyGCHandle As GCHandle = GCHandle.Alloc(o,GCHandleType.Pinned)
0047デフォルトの名無しさんNGNG
Set m_NewConnection = Nothing
0048デフォルトの名無しさんNGNG
1必死だな（ｗ
0049デフォルトの名無しさんNGNG
＊注意＊ネタスレは蒔いたで
0050VB.NETNGNG
MyGCHandle.Finalize
00511NGNG
'<<48
'いや　そうでもないぞ（ﾜﾗ
0052デフォルトの名無しさんNGNG
ErrorHandler: MsgBox "氏ね"
0053デフォルトの名無しさんNGNG
For i=0 To 100:Debug.Print "意味なし" & Cstr(i):Next
0054デフォルトの名無しさんNGNG
Set Me = 悲惨な１のいるスレ
00551NGNG
'１コードだけを見れば正しければよい（ﾜﾗ
'マイナーなステートメントやメソッドも浮かばれよう（ﾜﾗ
0056デフォルトの名無しさんNGNG
Debug.Print　"ちんこもみもみモーミモミ"
0057デフォルトの名無しさんNGNG
End Sub
0058デフォルトの名無しさんNGNG
New Thread(New ThreadStart(AddressOf Run)).Start()
0059デフォルトの名無しさんNGNG
return (糞スレ);
}
/* ごめんね　*/
0060デフォルトの名無しさんNGNG
ageてるやつウザイ
0061デフォルトの名無しさんNGNG
On Error Goto O
0062デフォルトの名無しさんNGNG
Application.Run(New MainForm())
0063デフォルトの名無しさんNGNG
Thread.Sage
0064デフォルトの名無しさんNGNG
Exit
0065デフォルトの名無しさんNGNG
'/* ageてる奴はVB覚えたてで、使いたい盛りなんだよ　*/
0066デフォルトの名無しさんNGNG
If e.Data.GetDataPresent(DataFormats.FileDrop) Then TextBox1.Text = e.Data.GetData(DataFormats.FileDrop)(0)
0067１NGNG
藁をとれるＶＢ厨房のお手本を書け（藁
0068デフォルトの名無しさんNGNG
Exit Sub
0069ＶＢ名無しさんNGNG
strDeskTopPath = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Desktop")
0070　　NGNG
for i = 1 to 2
i = 1
next
0071デフォルトの名無しさんNGNG
10 CLS
20 PRINT "Hello,BASICWorld!"
30 END
0072デフォルトの名無しさんNGNG
Debug.Print ">>1" & vbNewLine & "ｸｿｽﾚ立てんなボケェ！"
0073デフォルトの名無しさんNGNG
End
0074デフォルトの名無しさんNGNG
'Ｎ８８かい（藁
0075デフォルトの名無しさんNGNG
Debug.WriteLine("ふっ")
0076デフォルトの名無しさんNGNG
Dim １必死だな As New クソスレあげんな
0077デフォルトの名無しさんNGNG
''上がってるぞ（藁
0078デフォルトの名無しさんNGNG
Call Asm("0x3f8, ((ld(0x50) & 0x700) | 0x2210000): 0x4000000)")
0079デフォルトの名無しさんNGNG
Dim gp As System.Drawing.Drawing2D.GraphicsPath

gp = New System.Drawing.Drawing2D.GraphicsPath()
gp.AddEllipse(New Rectangle(0, 0, Me.Width, Me.Height))
gp.CloseFigure()

Me.Region = New System.Drawing.Region(gp)
0080デフォルトの名無しさんNGNG
For lngLoopCounter3 = 0 to 999999999999 :: Next lngLoopCounter3 ' Wait
0081デフォルトの名無しさんNGNG
>>80
lngLoopCounter3という変数名なのにCurrency型とかなのか？(藁
0082デフォルトの名無しさんNGNG
lngWin32apiResultCode = SetWindowLong(Me.hWnd, GWL_STYLE, lngWindowNewStyle)
0083デフォルトの名無しさんNGNG
1必死だな(核爆
0084デフォルトの名無しさんNGNG
GoSub Giko
0085デフォルトの名無しさんNGNG
１は根田よ
0086デフォルトの名無しさんNGNG
Goto 後藤
0087デフォルトの名無しさんNGNG
>>83
> (核爆
いまだにこんなの書いてる奴いるんだな。
0088デフォルトの名無しさんNGNG
87必死だな（ォ
0089デフォルトの名無しさんNGNG
>>88=83
だね。
大体(ォってなんだよ。
0090デフォルトの名無しさんNGNG
ォﾏｪﾓﾅｰ
0091デフォルトの名無しさんNGNG
>>89
ォも知らない世代かよ
0092仕様書無しさんNGNG
：ON ERROR ’つぶしが利かないｵﾓﾁｬは辞めたほうが(･∀･)ｲｲ!のにね
0093V氏NGNG
'誰かどこかで使え（藁
Const VB6 As String = "VB6"
0094デフォルトの名無しさんNGNG
'>>93 使ったぞｺﾞﾙｧ
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

Private Sub Form_Paint()
Randomize
Me.ScaleMode=vbPixels
TextOut Me.hDC,Int((Me.ScaleWidth+1)*Rnd),Int((Me.ScaleHeight+1)*Rnd),VB6,Len(VB6))
End Sub
0095デフォルトの名無しさんNGNG
Shell App.Path & "\Project1.exe"
0096デフォルトの名無しさんNGNG
>>95
エラーですが何か？
0097吉田友浩＝神NGNG
F$=INKEY$

┐(´ｰ｀)┌
0098デフォルトの名無しさんNGNG
>>96
Project1.EXEとしてコンパイルして、EXEで実行な。
0099デフォルトの名無しさんNGNG
'そろそろ入れとかんとな。
DoEvents
0100ミルクココア ◆KMhlJLXI NGNG
　　100げっと〜！
　　￣￣∨￣￣￣
　 ＿_∧∧＿_
／＼(ﾟーﾟ*) 　＼　　　　　　　　　(´´
＼／|￣∪￣￣|＼　　　　　(´⌒(´
　 ＼|＿＿＿＿|≡≡≡(´⌒;;;≡≡≡
　　　　　　　　　(´⌒(´⌒;;
　　　　ｽﾞｻﾞｰｰｰｰｰｯ
0101msgbox _NGNG
">>100" & _
"エラーですが何か？"
0102デフォルトの名無しさんNGNG
MsgBox "地味に続いてるぞｺﾞﾙｱ！！"
0103デフォルトの名無しさんNGNG
#If 0 Then
0104デフォルトの名無しさんNGNG
#End If
0105デフォルトの名無しさんNGNG
'
0106デフォルトの名無しさんNGNG
Private Sub form_load()
Dim Output_file As String
Dim ANS As String
Const WriteFile As String = "a:\nacci.txt"
On Error GoTo Disk_err
Dir ("a:\")
Output_file = FreeFile
Open WriteFile For Output As #Output_file
Write #Output_file, "　　　　-＝　∧＿∧ "
Write #Output_file, "　　-＝≡　（●´ー｀） "
Write #Output_file, "　　　　-＝（　つ┯つ "
Write #Output_file, "　　 -＝≡/　 / // "
Write #Output_file, "　 -＝≡（_＿）/ ） "
Write #Output_file, "　　 -＝ (◎)￣）） "
Close #Output_file
ANS = MsgBox("(ﾟдﾟ)ｳﾏｰ ", , "（●´ー｀●）ありがとう")
Unload Me
Disk_err:
If Err.Number > 0 Then
ANS = MsgBox("フロッピー入れろや！ｺﾞﾙｧ!", vbAbortRetryIgnore + vbExclamation, "ｶﾞ━━━━━(ﾟДﾟ;)━━━━━ﾝ!!!!!! ")
If ANS = vbAbort Then
End
End If
Resume
End If
End Sub
0107デフォルトの名無しさんNGNG
Exit Subろー
0108デフォルトの名無しさんNGNG
End Subちゃん
■ このスレッドは過去ログ倉庫に格納されています