可按Ctrl+D收藏 蚂蚁资源网
个人主页 我的介绍 我的文章 商品评论 资讯评论
  • 【点评】 源码商城源码（源码论坛）
  • 2021-02-16 18:30:04
  • JSP网上商城源码+WORD答辩材料+PPT演示材料全套，可运行！ASP.PHP做的毕设基本是用不上的，因为都是大的网站，不适合毕设。但是JAVA/JSP又没有免费的资源，免费的能用就不用在这发问题 了。楼下的来给个免费的代码吧。
  • 【点评】 jsp管理系统源码（javaweb新闻发布系统源码）
  • 2021-02-15 18:30:07
  • 我这里有个jsp+struts2+spring+hibernate +mysql做的图书管理系统 毕业设计级别的
  • 【点评】 源码搜搜（盘搜搜）
  • 2021-02-14 17:30:02
  • 在网上发现的代码案例，可以节省开发者大量的工作，或者变成开发者真正的噩梦。因为，在各种网络平台如 GitHub 和 Stack Overflow 上，可以下载到越来越多的代码案例。开发者进入这些平台寻找新的 API 和新代码的过程开始变得更简单了。但是，随着在网上可供人们使用的代码数量的增加，这些代码的总体质量有显著的下降。在谷歌搜索某个代码，最先的结果可能不会是你所想要的，让找到一个好的代码案例的难度变得更大，和更具有挑战性。可用的高质量的代码案例以色列的创业公司 Codota 希望能够解决这个单独的问题。Codota 是由以色列理工大学毕业生制造的产品，2013 年早期，他们成立公司。CEO Dror Weiss 是一位开发者和产品经理，他曾经在软件即服务（SaaS）产业合作方面有经验。另外一位联合创始人 Eran Yahav 是计算机科学方面的专家，专精算法和代码分析。在跟科技博客 Geektime 的一次交谈当中，Dror Weiss 表示，在服务上激动人心的一点是，公司已经接近完成一笔 55 万美元的种子轮融资。Weiss 解释说，“这个创业点子是由我们程序员需要寻找代码案例时的亲身体验而来的。我们不断试错，花了很长的时间，直到最后找到手头工作所需要的合适的代码。这个进程只会越来越困难。在代码的数量和开发者所掌握知识之间的鸿沟正在扩大，我们获取这类代码的能力之间的差距也在增强。寻找代码案例，在今天有点儿像是在谷歌出现之前的互联网进行搜索。信息有很多，基本上是海量的，但是要找到好东西却很困难。”Codota 实际上使用了一些存储大量代码网站的 API，并且可以阅读它们的代码案例。在这之后，他们使用自己基于语义分析开发的特殊科技。没有和其他平台的对比，因为将代码认作文字，是不可能准确的明白代码在做什么。Codota 在九月份发布了他们的最小产品原型（MVP），现在已经获得越来越多开发者的兴趣，在平台上面有 12000 人左右正在活跃。远景规划：企业应用Codota 能够解读代码的精髓，因为他们找到在搜索结果当中重复次数最多的模版代码，加入其他的变量，比如源代码和评分，接下来推送对于开发者搜索结果最相关的代码。目前平台只针对 Android 开发者设计，帮助他们搜索算法和类，包括详细的解释和流程图，来解释代码的功能，以及如何和恰当的 Android API 相连接。“我们的竞争者坚持用原先的方式来寻找源代码，像 Stack Overflow 等一些问答网站，用户手册，投放代码的个人，以及其他代码搜索引擎。我们服务的独特性是，我们知道是谁真正明白和分析代码。所以我们可以打分和追溯来源，获得你所需要的最佳案例。我们所有竞争者做的都是将代码看做一个文本文档，而不注意到特殊的与代码相关的特性。”“Codota 的商业模式是发展自定义 API 用作企业内部的代码查询，为大型的企业网络服务。在我们在大企业的工作经验当中我发现，在内部网络当中开发应用都是很困难的，要允许公司的程序员连接到组织内部的架构中。有些公司已经有了内部工具，但是可能在开发进程当中使用还是很复杂，而且重度需要各种资源的依赖。我们可以以软件即服务的方式提供自己的服务，为企业提供他们内部源代码的追踪搜索工具，可以通过云端来界定搜索关键字。”在公司的投资方面，Weiss 披露，资本将主要用在增加公司职员，加速研发，以及在最开始的市场推广方面的努力。
  • 【点评】 8ye源码（PHP源码）
  • 2021-02-12 16:00:10
  • 求VBA代码大全,1：打开所有隐藏工作表2：循环宏3：录制宏时调用“停止录制”工具栏4：高级筛选5列不重复数据至指定表5：双击单元执行宏(工作表代码)6：双击指定区域单元执行宏(工作表代码)7：进入单元执行宏(工作表代码)8：进入指定区域单元执行宏(工作表代码)9：在多个宏中依次循环执行一个（控件按钮代码）10：在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）11：在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）12：根据A1单元文本隐藏/显示按钮（控件按钮代码） 13：当前单元返回按钮名称（控件按钮代码） 14：当前单元内容返回到按钮名称（控件按钮代码） 15：奇偶页分别打印 16：自动打印多工作表第一页 17：查找A列文本循环插入分页符 18：将A列最后数据行以上的所有B列图片大小调整为所在单元大小 19：返回光标所在行数 20：在A1返回当前选中单元格数量21：返回当前工作簿中工作表数量 22：返回光标选择区域的行数和列数 23：工作表中包含数据的最大行数 24：返回A列数据的最大行数 25：将所选区域文本插入新建文本框 26：批量插入地址批注 27：批量插入统一批注 28：以A1单元内容批量插入批注 29：不连续区域插入当前文件名和表名及地址 30：不连续区域录入当前单元地址 31：连续区域录入当前单元地址 32：返回当前单元地址 33：不连续区域录入当前日期 34：不连续区域录入当前数字日期 35：不连续区域录入当前日期和时间 36：不连续区域录入对勾 37：不连续区域录入当前文件名 38：不连续区域添加文本 39：不连续区域插入文本 40：从指定位置向下同时录入多单元指定内容 41：按aa工作表A列的内容排列工作表标签顺序 42：以A1单元文本作表名插入工作表 43：删除所有未选定工作表 44：工作表标签排序45：定义指定工作表标签颜色 46：在目录表建立本工作簿中各表链接目录 47：建立工作表文本目录 48：查另一文件的所有表名 49：当前单元录入计算机名 50：当前单元录入计算机用户名 51：解除所有工作表保护 52：为指定工作表加指定密码保护表 53：在有密码的工作表执行代码 54：执行前需要验证密码的宏(控件按钮代码) 55：执行前需要验证密码的宏() 56：拷贝A1公式和格式到A2 57：复制单元数值 58：插入数值条件格式 59：插入透明批注 60：添加文本 61：光标定位到指定工作表A列最后数据行下一单元 62：定位选定单元格式相同的所有单元格 63：按当前单元文本定位 64：按固定文本定位 65：删除包含固定文本单元的行或列 66：定位数据及区域以上的空值 67：右侧单元自动加5(工作表代码) 68：当前单元加2 69：A列等于A列减B列 70：用于光标选定多区域跳转指定单元(工作表代码) 71：将A1单元录入的数据累加到B1单元（工作表代码） 72：在指定颜色区域选择单元时添加/取消"√"（工作表代码） 73：在指定区域选择单元时添加/取消"√"（工作表代码） 74：双击指定单元，循环录入文本（工作表代码） 75：双击指定单元，循环录入文本（工作表代码） 76：单元区e799bee5baa6e78988e69d8331333363363539域引用（工作表代码） 77：在指定区域选择单元时数值加1（工作表代码） 78：混合文本的编号 79：指定区域单元双击数据累加（工作表代码） 80：选择单元区域触发事件（工作表代码） 81：当修改指定单元内容时自动执行宏（工作表代码） 82：被指定单元内容限制执行宏 83：双击单元隐藏该行（工作表代码） 84：高亮显示行（工作表代码） 85：高亮显示行和列（工作表代码）86：为指定工作表设置滚动范围（工作簿代码）87：在指定单元记录打印和预览次数（工作簿代码）88：自动数字金额转大写（工作表代码）89：将所有工作表的A1单元作为单击按钮（工作簿代码）90：闹钟——到指定时间执行宏（工作簿代码）91：改变Excel界面标题的宏（工作簿代码）92：在指定工作表的指定单元返回光标当前多选区地址（工作簿代码）93：B列录入数据时在A列返回记录时间（工作表代码）94：当指定区域修改时在其右侧的2个单元返回当前日期和时间（工作表代码）95：指定单元显示光标位置内容（工作表代码）96：每编辑一个单元保存文件97：指定允许编辑区域98：解除允许编辑区域限制99：删除指定行100：删除A列为指定内容的行1：打开所有隐藏工作表Sub 打开所有隐藏工作表()Dim i As IntegerFor i = 1 To Sheets.CountSheets(i).Visible = TrueNext i End Sub2：循环宏Sub 循环() AAA = Range("C2") Dim i As Long  Dim times As Long  times = AAA 'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647)  For i = 1 To times  Call 过滤一行 If Range("完成标志") = "完成" Then    Exit For  '假如名为'完成标志'的命名单元的值等于'完成',则退出循环,假如一开始就等于'完成',则只执行一次循环就退出'If Sheets("传送参数").Range("A" & i).Text = "完成" Then Exit For '假如某列出现"完成"内容则退出循环Next i End Sub   3：录制宏时调用“停止录制”工具栏   Sub 录制宏时调用停止录制工具栏()      Application.CommandBars("Stop Recording").Visible = True End Sub        4：高级筛选5列不重复数据至指定表Sub 高级筛选5列不重复数据至Sheet2()      Sheets("Sheet2").Range("A1:E65536") = "" '清除Sheet2的A:D列     Range("A1:E65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2.Range( _         "A1"), Unique:=True      Sheet2.Columns("A:E").Sort Key1:=Sheet2.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _         :=xlPinYin End Sub        5：双击单元执行宏(工作表代码)   Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Range("$A$1") = "关闭" ThenExit Sub      Select Case Target.Address         Case "$A$4"             Call 宏1             Cancel = True         Case "$B$4"             Call 宏2             Cancel = True         Case "$C$4"             Call 宏3             Cancel = True        Case "$E$4"             Call 宏4              Cancel = True     End Select End Sub6：双击指定区域单元执行宏(工作表代码)Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)     If Range("$A$1") = "关闭" Then Exit Sub     If Not Application.Intersect(Target, Range("A4:A9", "C4:C9")) Is Nothing Then Call 打开隐藏表 End Sub7：进入单元执行宏(工作表代码)   Private Sub Worksheet_SelectionChange(ByVal Target As Range) '以单元格进入代替按钮对象调用宏      If Range("$A$1") = "关闭" Then Exit Sub     Select Case Target.Address          Case "$A$5" '单元地址(Target.Address),或命名单元名字(Target.Name)             Call 宏1         Case "$B$5"             Call 宏2         Case "$C$5"             Call 宏3      End Select End Sub8：进入指定区域单元执行宏(工作表代码)Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Range("$A$1") = "关闭" Then Exit SubIf Not Application.Intersect(Target, Range("A4:A9","C4:C9")) Is Nothing Then Call 打开隐藏表 End Sub9：在多个宏中依次循环执行一个（控件按钮代码）Private Sub CommandButton1_Click()Static RunMacro As IntegerSelect Case RunMacroCase 0宏1RunMacro = 1Case 1宏2RunMacro = 2Case 2宏3RunMacro = 0End Select End Sub10：在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）Private Sub CommandButton1_Click()With CommandButton1If .Caption = "保护工作表" ThenCall 保护工作表 .Caption = "取消工作表保护" Exit SubEnd IfIf .Caption = "取消工作表保护" ThenCall 取消工作表保护 .Caption = "保护工作表" Exit SubEnd IfEnd With End Sub11：在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码）   Option Explicit  Private Sub CommandButton1_Click()With CommandButton1If .Caption = "宏1" ThenCall 宏1 .Caption = "宏2" Exit SubEnd IfIf .Caption = "宏2" ThenCall 宏2.Caption = "宏3"Exit SubEnd IfIf .Caption = "宏3" ThenCall 宏3.Caption = "宏1"Exit SubEnd IfEnd With End Sub 12：根据A1单元文本隐藏/显示按钮（控件按钮代码）Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("A1") > 2 Then  CommandButton1.Visible = 1 Else  CommandButton1.Visible = 0 End If End Sub  Private Sub CommandButton1_Click() 重排窗口 End Sub        13：当前单元返回按钮名称（控件按钮代码）   Private Sub CommandButton1_Click() ActiveCell = CommandButton1.Caption End Sub        14：当前单元内容返回到按钮名称（控件按钮代码）   Private Sub CommandButton1_Click() CommandButton1.Caption = ActiveCell End Sub        15：奇偶页分别打印   Sub 奇偶页分别打印() Dim i%, Ps%  Ps = ExecuteExcel4Macro("GET.DOCUMENT(50)") '总页数 MsgBox "现在打印奇数页,按确定开始." For i = 1 To Ps Step 2 ActiveSheet.PrintOut from:=i, To:=i Next i  MsgBox "现在打印偶数页,按确定开始." For i = 2 To Ps Step 2      ActiveSheet.PrintOut from:=i, To:=i Next i End Sub        16：自动打印多工作表第一页   Sub 自动打印多工作表第一页() Dim sh As Integer Dim x Dim y Dim sy Dim syz  x = InputBox("请输入起始工作表名字:") sy = InputBox("请输入结束工作表名字:") y = Sheets(x).Index syz = Sheets(sy).Index For sh = y To syz Sheets(sh).Select  Sheets(sh).PrintOut from:=1, To:=1 Next sh End Sub        17：查找A列文本循环插入分页符   Sub 循环插入分页符()  ' Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容   Dim i As Long Dim times As Long  times = Application.WorksheetFunction.CountIf(Sheet1.Range("a:a"), "分页")      'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647) For i = 1 To times Call 插入分页符 Next i End SubSub 插入分页符()     Cells.Find(What:="分页", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _         .Activate      ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell End SubSub 取消原分页()     Cells.Select      ActiveSheet.ResetAllPageBreaks End Sub18：将A列最后数据行以上的所有B列图片大小调整为所在单元大小   Sub 将A列最后数据行以上的所有B列图片大小调整为所在单元大小()     Dim Pic As Picture, i&      i = [A65536].End(xlUp).Row     For Each Pic In Sheet1.Pictures          If Not Application.Intersect(Pic.TopLeftCell, Range("B1:B" & i)) Is Nothing Then             Pic.Top = Pic.TopLeftCell.Top             Pic.Left = Pic.TopLeftCell.Left              Pic.Height = Pic.TopLeftCell.Height             Pic.Width = Pic.TopLeftCell.Width         End If     Next End Sub19：返回光标所在行数   Sub 返回光标所在行数()     x = ActiveCell.Row     Range("A1") = x End Sub        20：在A1返回当前选中单元格数量   Sub 在A1返回当前选中单元格数量()     [A1] = Selection.Count End Sub21：返回当前工作簿中工作表数量Sub 返回当前工作簿中工作表数量()     t = Application.Sheets.Count     MsgBox t End Sub        93：B列录入数据时在A列返回记录时间（工作表代码）Public Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Target.Offset(, -1) = Now End If End Sub        94：当指定区域修改时在其右侧的2个单元返回当前日期和时间（工作表代码）   Public Sub Worksheet_Change(ByVal Target As Range)  If Not Application.Intersect(Target, [A1:A1000]) Is Nothing Then If Target.Column = 1 Then Target.Offset(, 1) = Date Target.Offset(, 2) = Time End If End If End Sub   Public Sub Worksheet_Change(ByVal Target As Range)  If Not Application.Intersect(Target, [A1:A1000]) Is Nothing Then If Target.Column = 1 Then  Target.Offset(, 1) = Format(Now(), "yyyy-mm-dd") Target.Offset(, 2) = Format(Now(), "h:mm:ss") End If End If End Sub        95：指定单元显示光标位置内容（工作表代码）   Private Sub Worksheet_SelectionChange(ByVal T As Range) Sheets(1).Range("A1") = Selection End Sub        96：每编辑一个单元保存文件   Private Sub Worksheet_Change(ByVal Target As Range) ThisWorkbook.Save End Sub        97：指定允许编辑区域Sub 指定允许编辑区域()  ActiveSheet.ScrollArea = "B8:G15" End Sub        98：解除允许编辑区域限制   Sub 解除允许编辑区域限制() ActiveSheet.ScrollArea = "" End Sub        99：删除指定行   Sub 删除指定行()  Workbooks("临时表").Sheets("表2").Range("5:5").Delete End Sub        100：删除A列为指定内容的行   Sub 删除A列为指定内容的行() Dim a, b As Integer  a = Sheet1.[a65536].End(xlUp).Row    For b = a To 2 Step -1        If Cells(b, 1).Value = "删除" Then          Rows(b).Delete       End If    Next End Sub
  • 【点评】 裂变影视源码（QQ群裂变源码）
  • 2021-02-12 15:44:23
  • 遇见未来 死神来了 神秘代码 这三部都是预知灾难的电影
  • 【点评】 信用卡分销系统源码（信用卡分销app）
  • 2021-02-12 15:41:17
  • 目前的话，做卡友管家的代理，提成都是即时结算。
  • 【点评】 社区团购系统源码（社区源码程序）
  • 2021-02-12 15:35:50
  • 深圳那边不是很清楚，不过现在社区团购是一种新的商业趋势，开发社区团购系统的公司还是有的，这个仔细对比一下就可以了，目前主要有以下两种方式，比如：一种是定制开发，不过这种开发价格较高，几万甚至十几万不等，还有就是开发周期较长；另外一种就是第三方平台开发，这种开发价格较低，根据功能几千就可以开发好，主要的是开发周期短，一个星期左右就可以上线运营。所以，可以根据自身情况选择开发方式进行开发。
  • 【点评】 神马影视网站源码（秋霞影院）
  • 2021-02-12 15:27:51
  • mm123动漫网采集系统
  • 【点评】 企业公司源码（企业网站模板源码）
  • 2021-02-12 15:03:11
  • 直接去百度上搜索 源码，里面有很多源码网站。 分类的有asp,php .net等很多。。去找吧！
  • 【点评】 区块链php源码（开源区块链系统源码）
  • 2021-02-12 14:33:53
  • 如果学习区块链的二次开发，用哪个开源库做基础比较好,这是一个比较专业的问题，需要去找专业的认识去讲解。不过，开源项目比特币、以太坊、DECENT都是可以借鉴的项目，可以去研究一下。当然，区块链本身只是一种技术，技术都具有双面性。
  • 【点评】 阿奇源码网（下载阿奇资源网）
  • 2021-02-12 14:17:31
  • 有没有flash源码网站,www.51xflash.comwww.mb100.netwww.sinker.cnwww.piantou.net这几个都是不错的。
  • 【点评】 es源码（es8汽车）
  • 2021-02-12 13:59:29
  • 有个POWER VR的SDK，是OPENGL那家公司的，链接我忘了你搜下大概三四百兆，里面有很多例子
  • 【点评】 家政服务小程序源码（家政服务）
  • 2021-02-12 13:19:13
  • 小程序在我的生意里 点击小程序 勾选一下要做的业务 把企业的介绍填好 就会生成小程序
  • 【点评】 优选源码库（优选小程序源码）
  • 2021-02-12 12:45:57
  • 优选模式 如果商户选择的是创意优选，系统会优先展现用户比较关注的那条创意，从而吸引更多潜在受众点击推广信息，提高点击率，改善质量度。 轮替模式 商户选择该计划创意轮替后，该计划下所有单元中的创意，以相同的机会展现。有的时候，这两种模式下，关键词的质量度会有所不同 2个模式各有各的好处吧。新手建议选轮替模式
  • 【点评】 聚星源码（wg包网源码）
  • 2021-02-12 10:39:03
  • “聚星,真真假假，假假真真。真假难分，一切都是虚幻
  • 【点评】 商城购物网站源码（购物网站大全）
  • 2021-02-12 10:31:15
  • Java网站源码：我想下载一个java/jsp的商城网站源码到哪里可以找到下载的,JSP网上商城源码+WORD答辩材料+PPT演示材料全套，可运行！ASP.PHP做的毕设基本是用不上的，因为都是大的网站，不适合毕设。但是JAVA/JSP又没有免费的资源，免费的能用就不用在这发问题 了。楼下的来给个免费的代码吧。
  • 【点评】 亿乐社区系统源码（亿乐系统最大货源站）
  • 2021-02-12 10:29:22
  • wap的免费社区源码都有哪儿些,PHP版本的有：康源CMS2.2、风云论坛PHPASP版本：龙门社区2010版、纯真社区、星宇2.0这种多了去了。推荐下载地址 http://wapxd.googleCode.com【谷歌源码托管中心存储的源码来源于WAP站长基地】
  • 【点评】 直播小程序源码（微信群直播怎么弄）
  • 2021-02-12 09:53:32
  • 在李佳琦与薇娅的成功背后，是视频电商的崛起，凭借更直观的信息传达效率，通过主播实时互动，打破了传统电商冰冷的消费体验痛点，使得一场成功的直播交易量就可能远超实体门店数月的业绩。而放眼整个行业，内容平台做电商，电商平台做直播早已不是什么新鲜事，而微信作为社交平台，以小程序切入直播领域，表明布局直播带货已经成为互联网行业共识。随着线上用户增长遭遇天花板，商家获客成本高企，而微信坐拥11亿活跃用户，有着令其他平台艳羡的庞大用户规模，几乎涵盖所有消费人群，其中还包含大量下沉及新增用户群体。而基于小程序强大的营销能力（抽奖、领券、秒杀等），配合自带的社交入口，商家可轻松打造出裂变营销为直播间引流，最终通过带货完成转化。如何做小程序直播？•申请条件首先要说明的是小程序直播是以插件的形式存在的，就是说开通小程序直播的前提是有自己的小程序（且符合开放类目），在此基础上，小程序还需满足近半年无违规、连续7日日活用户＞100人、近90天有支付行为等条件。•开通步骤在小程序代码中接入直播插件后，通过审核即可添加商品，商品经过审核入库后即可被添加至直播间，同时允许50个直播间同时直播带货。而对于没有开发能力的商家，就需要找到第三方服务商以搭建小程序直播方案。随着线下商家意识到打造智慧零售体系的必要性，再加上微信的全力推动，有理由相信直播电商的全面爆发只是时间问题，而从抢占流量风口的角度看，越早入局无疑越有利于瓜分红利。
  • 【点评】 关键词按天计费源码（排点击计费系统源码）
  • 2021-02-12 09:10:02
  • 百度没有竞价的关键词计费,只要是做了竞价的关键词都是按点击付费，各行业，词不一样，点击价格不一样，品牌词是最要保护的竞价词，而搜索你品牌词的人，成交率比搜索其它词会高很多，一般都是潜在顾客了。如果你品牌词自然排名第一的话，又没有人做你的品牌词，可以选择不做，有问题再追问。—智在网络
  • 【点评】
  • 2021-02-12 08:40:26
  • 现在有什么好点的PHP小说源码要免费的哦,杰奇小说系统奇文小说系统网上的小说站大部分都是用这两个系统建设的我的 http://www.gapaa.com就是用杰奇建设的
联系客服
网站客服 联系客服
手机版

扫一扫进手机版
返回顶部