利用VB做一个连连看游戏我需要完整的VB代码要确保能用的希望能

[vb连连看游戏代码要全部的]vb连连看游戏代码要全部的，连连看游戏的java源代码程序！Picture1(I); F = UpI And UpI ;MyTu, Picture1(Index).Tag = Picture1(UpI)；选中一个图片 UpI = Index Label1.AutoRed...+阅读

利用VB做一个连连看游戏我需要完整的VB代码要确保能用的希望能

'添加picturebox控件数组，ProgressBar控件和2个timer控件'搜集自网络，在d：\新建文件夹下，放10个图片0个图片（名字分别为 1.jpg、2.jpg、3.jpg、4.jpg、5.jpg.....10.jpg） Dim i As Integer '要建立的图片框个数 Dim aa As Integer Dim gg As Integer Dim ss As Integer Dim jj As Integer, hh As Integer '保存声明窗体的宽度和长度 Dim tt As Integer '声明时间变量 Dim ff As Integer Dim nn As Integer '声明图片框已经隐藏的变量 Dim kk As String Dim pp As Integer Dim j, uu As Integer Dim tf As Integer, kl As Integer Dim oo As Integer Dim vv As Integer Dim rr, mm As Integer Dim cc As Integer Dim ee, qq As Integer Dim ll As Integer Dim ww As Integer Dim a As Integer Dim mm1, nn1 As Integer Dim ty, yt As Integer Dim strnn As String Dim strmm As String Private Sub Form_Load() On Error GoTo Myerror Me.Visible = False pp = 0 kk = ＂.jpg＂ ProgressBar1.Max = 200 Picture1(0).Visible = False For i = 1 To 100 pp = pp + 1 If pp = 11 Then pp = 1 End If gg = gg + 1 If gg = 10 Then ss = ss + Picture1(0).Height + 50 gg = 0 aa = Picture1(0).Left hh = ss + 800 Else aa = aa + Picture1(0).Width + 50 jj = aa + Picture1(0).Width + 120 End If Load Picture1(i) Picture1(i).Picture = LoadPicture(＂d：\新建文件夹\＂ & pp & kk) Picture1(i).Width = Picture1(0).Width Picture1(i).Height = Picture1(0).Height Picture1(i).Left = aa Picture1(i).Top = ss Picture1(i).AutoRedraw = True Picture1(i).Visible = True If i = 100 Then Picture1(100).Left = Picture1(0).Left Picture1(100).Top = Picture1(0).Top Picture1(100).Height = Picture1(0).Height Picture1(100).Width = Picture1(0).Width Picture1(100).Visible = True Picture1(100).Picture = LoadPicture(＂d：\新建文件夹\＂ & pp & kk) End If Next i Me.Width = jj Me.Height = hh - 150 ProgressBar1.Height = 255 ProgressBar1.Width = Me.Width ProgressBar1.Top = hh - 800 ProgressBar1.Left = 0 Timer1.Interval = 500 Timer2.Interval = 100 Timer1.Enabled = False Randomize Timer2 tt = 200 ProgressBar1.Value = tt Exit Sub Myerror:MsgBox ＂D：\新建文件夹 文件夹下加载图片＂， vbOKOnly， ＂错误对话框“＂ End End Sub Private Sub Picture1_Click(Index As Integer) nn = 0 pp = 0 Select Case Index Case Index oo = oo + 1 If oo = 1 Then ee = Index For vv = 1 To 100 pp = pp + 1 If pp = 11 Then pp = 1 End If If vv = Index Then rr = vv tf = pp End If Next End If If oo = 2 Then qq = Index For vv = 1 To 100 pp = pp + 1 If pp = 11 Then pp = 1 End If If vv = Index Then mm = vv kl = pp End If Next vv oo = 0 End If If tf = kl Then If eeqq Then Picture1(rr).Visible = False Picture1(mm).Visible = False tf = 0 kl = 0 End If End If End Select For i = 0 To 99 If Picture1(i).Visible = False Then nn = nn + 1 End If If nn = 100 Then MsgBox ＂恭喜！！！ 过关了！＂ Timer1.Enabled = False End If Next i End Sub Private Sub Timer1_Timer() tt = tt - 1 ProgressBar1.Value = tt If tt = 0 Then ff = MsgBox（＂哈哈 您已经输了＂， vbOKOnly， ＂关闭对话框＂） If ff = 1 Then End End If End If End Sub Private Sub Timer2_Timer() a = a + 1 If a = 100 Then Timer2.Enabled = False Timer1.Enabled = True Me.Show End If ll = Int(Rnd * 101) ww = Int(Rnd * 101) strnn = strnn + ＂,＂ + Str(ll) strmm = strmm + ＂,＂ + Str(ww) If InStr(ll, strnn) = 0 And InStr(ww, strmm) = 0 Then If ll0 And ww0 Then If llww Then mm1 = Picture1(ll).Left nn1 = Picture1(ll).Top ty = Picture1(ww).Left yt = Picture1(ww).Top Picture1(ll).Left = ty Picture1(ll).Top = yt Picture1(ww).Top = nn1 Picture1(ww).Left = mm1 End If End If End If End Sub

一个用java语言编写的图片连连看游戏有没有大神肯教啊

import javax.swing.*; import java.awt.*; import java.awt.event.*; public class lianliankan implements ActionListener { JFrame mainFrame； //主面板 Container thisContainer; JPanel centerPanel,southPanel,northPanel； //子面板 JButton diamondsButton[][] = new JButton[6][5]；//游戏按钮数组 JButton exitButton,resetButton,newlyButton； //退出，重列，重新开始按钮 JLabel fractionLable=new JLabel(＂0＂)； //分数标签 JButton firstButton,secondButton； //分别记录两次被选中的按钮 int grid[][] = new int[8][7]；//储存游戏按钮位置 static boolean pressInformation=false； //判断是否有按钮被选中 int x0=0,y0=0,x=0,y=0,fristMsg=0,secondMsg=0,validateLV； //游戏按钮的位置坐标 int i,j,k,n；//消除方法控制 public void init(){ mainFrame=new JFrame(＂JKJ连连看＂)； thisContainer = mainFrame.getContentPane(); thisContainer.setLayout(new BorderLayout()); centerPanel=new JPanel(); southPanel=new JPanel(); northPanel=new JPanel(); thisContainer.add(centerPanel,＂Center＂); thisContainer.add(southPanel,＂South＂); thisContainer.add(northPanel,＂North＂); centerPanel.setLayout(new GridLayout(6,5)); for(int cols = 0;cols

谁能帮忙写一个c语言连连看游戏要4x4的功能最简单的就可以！

////// 简单连连看游戏//////#include#include#include#define ROW 4 //行数目#define COL 4 #define ICO_NUM 5//游戏图标const char ico[ICO_NUM] = ＂#$& ＂;char games[ROW][COL] = {0}；//初始化数据void init_game(void){ int i, j; for(i = 0; i

(1) { //初始化数据 init_game(); while

(1) { //绘制游戏 draw_game(); while

(1) { printf（＂请输入要消除的坐标1(x1 y1):\n＂); scanf(＂%d%d＂, &x1, &y1); if(x1= ROW) { printf(＂x1输入有误，请从新输入：（0

以下为关联内容：

谁能帮忙写一个c语言连连看游戏要4x4的功能最简单的就可以！谁能帮忙写一个c语言连连看游戏要4x4的功能最简单的就可以！一个用java语言编写的图片连连看游戏有没有大神肯教啊：////// 简单连连看游戏//////#include#include#include#defi...

FLASH连连看的源代码FLASH连连看的源代码，一个VB程序代码连连看的谢谢：stop(); fscommand(＂showmenu＂, ＂false＂); the_change_nm = 6; the_pass_nm = 1; the_test_nm = 0; the_good = 0; tmp_start =...

连连看游戏用VB怎么编连连看游戏用VB怎么编，急！高手制作VB连连看小游戏：编程遍了一个晚上，终于编出来了，代码给你发过去，如下： Private Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByV...

QQ游戏连连看多少分长一个星座QQ游戏连连看多少分长一个星座，QQ游戏连连看积分与等级对照：等级 积分 小星星 0 摩羯座 100 水瓶座 200 双鱼座 500 白羊座 1000 金牛座 2000 双子座 3000 巨蟹座 5000 狮子座...

一个简单的连连看一个简单的连连看，哪位高手帮个忙帮我用VB编一个简单的连连看的小游戏吧！感：import javax.swing.*; import java.awt.*; import java.awt.event.*; public class lianliankan i...

能不能帮我用VB制作一个简单的连连看游戏呀能不能帮我用VB制作一个简单的连连看游戏呀，怎样快速玩翻连连看：重点是，装载相同的图片时，要同时将控件的 Tag 属性设置为相同的图片文件名。单击控件时，如果 Tag 属性相同就表示...

连连看5的游戏技巧连连看5的游戏技巧，连连看小游戏怎么一到五：1. 少用打乱键（F7） 连连看的打乱和生命是相同的，滥用打乱键很容易会因生命耗尽而Game Over，特别是向内集中、向左移动这种很容易无牌可...

怎么用java写一个小游戏连连看怎么用java写一个小游戏连连看，连连看游戏的java源代码程序！package mybase.programe;/** lianliankan总体算法思路：由两个确定的按钮。若这两个按钮的数字相等，就开始找它们相...

java语言编写一个连连看。java语言编写一个连连看，一个用java语言编写的图片连连看游戏有没有大神肯教啊：import java.awt.BorderLayout; import java.awt.Container; import java.awt.GridLayout; imp...