连连看的VB程序
整理：yaobaiwang.com 时间：07月26日
[vb连连看游戏代码要全部的]vb连连看游戏代码要全部的，连连看游戏的java源代码程序！Picture1(I); F = UpI And UpI ;MyTu, Picture1(Index).Tag = Picture1(UpI)；选中一个图片 UpI = Index Label1.AutoRed...+阅读
连连看的VB程序
我有连连看的程序。
Private Sub Command1_Click()
Dim a(10) As Integer
Dim max As Integer
Dim min As Integer
Dim avg As Double
Dim sum As Integer
sum = 0
Randomize
For i = 1 To 10
If i = 1 Then
a(i) = Int(Rnd * 90 + 10)
max = a(i)
min = a(i)
sum = sum + a(i)
Else
a(i) = Int(Rnd * 90 + 10)
If a(i) >max Then max = a(i)
If a(i) sum = sum + a(i)
End If
Next i
Print ＂最大值是＂ & max
Print ＂最小值是＂ & min
Print ＂平均值是＂ & sum / 10
End Sub
急连连看简单vb程序
给你段代码吧，直接复制粘贴到文本文件，改名为1.frm即可运行（关于连线的判断自己需要加一段算法代码，本程序中没写）：VERSION 5.00Begin VB.Form Form1 BorderStyle = 1 'Fixed Single Caption = ＂Form1＂ ClientHeight = 7680 ClientLeft = 45 ClientTop = 435 ClientWidth = 7170 LinkTopic = ＂Form1＂ MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 7680 ScaleWidth = 7170 StartUpPosition = 3 '窗口缺省 Begin VB.Timer Timer1 Left = 6720 Top = 2880 End Begin VB.ComboBox dengji Height = 300 Left = 4680 Style = 2 'Dropdown List TabIndex = 6 Top = 720 Width = 1935 End Begin VB.CommandButton Jieshu Caption = ＂结束游戏＂ Height = 495 Left = 1800 TabIndex = 5 Top = 600 Width = 1215 End Begin VB.PictureBox P1 Appearance = 0 'Flat BackColor = &H00000000& ForeColor = &H80000008& Height = 255 Left = 240 ScaleHeight = 225 ScaleWidth = 6585 TabIndex = 4 Top = 240 Width = 6615 End Begin VB.PictureBox p0 Appearance = 0 'Flat BackColor = &H80000005& ForeColor = &H80000008& Height = 255 Left = 240 ScaleHeight = 225 ScaleWidth = 6585 TabIndex = 3 Top = 240 Width = 6615 End Begin VB.Frame Frame1 Height = 6255 Left = 360 TabIndex = 1 Top = 1200 Width = 6255 Begin VB.PictureBox nPic BackColor = &H008080FF& BorderStyle = 0 'None Height = 615 Index = 0 Left = 360 ScaleHeight = 615 ScaleWidth = 105 TabIndex = 2 Top = 240 Visible = 0 'False Width = 100 End End Begin VB.CommandButton kaishi Caption = ＂开始游戏＂ Height = 495 Left = 240 TabIndex = 0 Top = 600 Width = 1335 End Begin VB.Label Label1 Caption = ＂难度等级＂ Height = 255 Left = 3720 TabIndex = 7 Top = 720 Width = 855 EndEndAttribute VB_Name = ＂Form1＂Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim tmp() As Integer '假设有10种类别的图片，本数组用以记录每组图片加载的次数Dim pic(10) As ColorConstantsDim tCnt As IntegerDim Fhit As ColorConstantsDim FhitIndex As LongPrivate Sub Command1_Click()End SubPrivate Sub jieshu_Click() Timer1.Enabled = False dengji.Enabled = True P1.Width = p0.Width Jieshu.Enabled = False kaishi.Enabled = TrueEnd SubPrivate Sub Form_Initialize() Dim i As Integer For i = 1 To 10 pic(i) = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255)) Next i dengji.Clear For i = 3 To 1 Step -1 dengji.AddItem i & ＂分钟＂ Next i dengji.ListIndex = 0 Timer1.Interval = 1000 Timer1.Enabled = False Jieshu.Enabled = FalseEnd SubPrivate Sub Form_Load() 'IntPicEnd Sub'初始化控件数组Private Sub IntPic() Dim i As Integer ReDim tmp(10) As Integer nPic(0).Move 200, 200, 500, 500 nPic(0).Visible = False For i = 1 To 100 If ExistPic(nPic(i)) Then Unload nPic(i) Load nPic(i) nPic(i).Visible = True nPic(i).Width = 500 nPic(i).BackColor = pic(LoadPic) nPic(i).Top = (i Mod 10) * (500 + 100) + 200 nPic(i).Left = ((i - 1) \ 10) * (500 + 100) + 200 nPic(i).Visible = True Next iEnd Sub'判断控件是否存在Function ExistPic(obj As PictureBox) As Boolean On Error GoTo errobj obj.Move obj.Left ExistPic = True Exit Functionerrobj: ExistPic = FalseEnd Function'随机赋予控件颜色，可更改为指定的图片Private Function LoadPic() Dim ntmp As Integer Do ntmp = Int(Rnd * 10) + 1 If tmp(ntmp) LoadPic = ntmp tmp(ntmp) = tmp(ntmp) + 1 Exit Do End If LoopEnd FunctionPrivate Sub kaishi_Click() tCnt = 0 IntPic Timer1.Enabled = True dengji.Enabled = False kaishi.Enabled = False Jieshu.Enabled = TrueEnd SubPrivate Sub nPic_Click(Index As Integer) If Fhit = 0 Then Fhit = nPic(Index).BackColor FhitIndex = Index nPic(Index).BorderStyle = 1 ElseIf Fhit = nPic(Index).BackColor And Index FhitIndex Then nPic(FhitIndex).Visible = False nPic(Index).Visible = False FhitIndex = 0 Fhit = 0 nPic(Index).BorderStyle = 1 nPic(FhitIndex).BorderStyle = 0 Else Fhit = nPic(Index).BackColor nPic(FhitIndex).BorderStyle = 0 nPic(Index).BorderStyle = 1 FhitIndex = Index End If Debug.Print FhitEnd SubPrivate Sub Timer1_Timer() If tCnt >Val(dengji.Text) * 60 Then MsgBox ＂游戏结束＂ Timer1.Enabled = False Exit Sub End If tCnt = tCnt + 1 P1.Width = p0.Width * (1 - Format((tCnt / (Val(dengji.Text) * 60)), ＂0.000＂))End Sub
一个VB做连连看的问题
重点是，装载相同的图片时，要同时将控件的 Tag 属性设置为相同的图片文件名。单击控件时，如果 Tag 属性相同就表示图片相同。下面是例子：
Dim UpI As Long
Private Sub Form_Load()
Dim I As Long, S As Long, F As String
Picture1(0).AutoRedraw = True
For I = 0 To 10
If I >0 Then Load Picture1(I): Picture1(I).Visible = True
Picture1(I).Left = I * Picture1(0).Width * 1.1
'这里用字符代替图片文件
S = 1 + Int(Rnd * 4)
Picture1(I).Print ＂tu＂ & S
Picture1(I).Tag = ＂tu＂ & S
''下面是假设目录 C:\MyTu\ 中有图片文件 tu1.ico、 tu2.ico、 tu3.ico、 tu4.ico
' F = ＂C:\MyTu\tu＂ & I & ＂.Ico＂
' Picture1(I).Picture = Picture1(F)
' Picture1(I).Tag = ＂tu＂ & S
Next
UpI = -1
End Sub
Private Sub Picture1_Click(Index As Integer)
If Index UpI And UpI >-1 Then
If Picture1(Index).Tag = Picture1(UpI).Tag Then '图片相同
Picture1(Index).Visible = False: Picture1(UpI).Visible = False
Label1.Visible = False
UpI = -1
Exit Sub
End If
End If
'选中一个图片
UpI = Index
Label1.Caption = ＂＂: Label1.BackColor = 255: Label1.Visible = True
Label1.Move Picture1(Index).Left - Picture1(Index).Width * 0.1, Picture1(Index).Top - Picture1(Index).Height * 0.1, Picture1(Index).Width * 1.2, Picture1(Index).Height * 1.2
End Sub
补充：---------------------------------
在窗体放置控件 Picture1，然后在属性窗口设置属性 Index=0
以下为关联内容：
连连看游戏用VB怎么编连连看游戏用VB怎么编，急！高手制作VB连连看小游戏：编程遍了一个晚上，终于编出来了，代码给你发过去，如下： Private Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByV...
能不能帮我用VB制作一个简单的连连看游戏呀能不能帮我用VB制作一个简单的连连看游戏呀，怎样快速玩翻连连看：重点是，装载相同的图片时，要同时将控件的 Tag 属性设置为相同的图片文件名。单击控件时，如果 Tag 属性相同就表示...
连连看游戏的java源代码程序！连连看游戏的java源代码程序！能不能帮我用VB制作一个简单的连连看游戏呀：import java.util.*; public class bycomma{ public static String[] splitStringByComma(String sou...
利用VB做一个连连看游戏我需要完整的VB代码要确保能用的希望能利用VB做一个连连看游戏我需要完整的VB代码要确保能用的希望能，一个用java语言编写的图片连连看游戏有没有大神肯教啊：'添加picturebox控件数组，ProgressBar控件和2个timer控件...
急连连看简单vb程序急连连看简单vb程序，连连看新手如何快速学会：给你段代码吧，直接复制粘贴到文本文件，改名为1.frm即可运行（关于连线的判断自己需要加一段算法代码，本程序中没写）：VERSION 5.00Begin V...
怎么用VB做一个连连看挂谁有连连看辅助：编程遍了一个晚上，终于编出来了，代码给你发过去，如下：Private Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByVal lpClassName As String, ByVal...
如何编vb连连看游戏连连看游戏用VB怎么编？Private Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private...
有没有java编写的连连看程序最好是一整个程序包连连看小游戏的技巧高手赐教：刚试了。。测试通过。。importjavax.swing.*;importjava.awt.*;importjava.awt.event.*;publicclass LianLianKan implements ActionListener {...
急！高手制作VB连连看小游戏能不能帮我用VB制作一个简单的连连看游戏呀：15分………… 提供个思路吧！ 1、图标没多大关系，把图片裁成统一尺寸，每张图用一个picturebox装起来，就是一个图标了。 2、倒计时用tim...