小编Dev*_*ate的帖子

vb.net在表单内启动应用程序

我想在面板中运行应用程序或在我的应用程序中运行某些程序。这是模拟器前端。您浏览游戏,然后选择一个游戏即可启动模拟器。我找到以下代码并将其修改为我的项目

Public Class Form1
    Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
    Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Private Const WM_SYSCOMMAND As Integer = 274
    Private Const SC_MAXIMIZE As Integer = 61488
    Dim proc As Process

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        proc = Process.Start("C:\WINDOWS\notepad.exe")
        proc.WaitForInputIdle()

        SetParent(proc.MainWindowHandle, Panel1.Handle) …
Run Code Online (Sandbox Code Playgroud)

vb.net process winforms windows-8 visual-studio-2012

4
推荐指数
1
解决办法
2万
查看次数

jquery航点,在视口中心而不是顶部时激活?

所有文档都讨论了航点何时到达视口的顶部,但我希望当航点的任何部分位于视口的中心时触发器发生.

如果我向下滚动,这段代码工作得相当好,但是当我向上滚动它时,它不起作用.

$('.section').waypoint(function(direction) {
    highlight('#' + this.id);
}, {
    context: '#scroll',
    offset: function (direction) {
        return $(this).height();
    }
});
Run Code Online (Sandbox Code Playgroud)

我尝试了下面的代码和几个变种,它甚至从未命中任何一个return语句.

$('.section').waypoint(function(direction) {
    highlight('#' + this.id);
}, {
    context: '#scroll',

    offset: function (direction) {
        if (direction == 'down') {
            return -$(this).height();
        } else {
            return 0;
        }
    }
});
Run Code Online (Sandbox Code Playgroud)

所以现在我正在尝试这个,基于路标示例,但$ active.id不能像this.id那样工作,所以我的功能"突出显示"失败了.

$('.section').waypoint(function (direction) {
    var $active = $(this);
    if (direction == 'down') {
        $active = $active.prev();
    }
    if (!$active.length) {
        $active = $(this);
    }
    highlight($active.id);
}, {
    context: '#scroll', …
Run Code Online (Sandbox Code Playgroud)

javascript jquery scroll jquery-waypoints

4
推荐指数
1
解决办法
9873
查看次数

在HTML电子邮件中使用"cursor:pointer"的一致方法?

我正在为我们的过程自动化软件设计HTML电子邮件通知.一切都很盛大,除了我不能得到"光标:指针"来处理按钮.在IE9,Chrome中工作得很好,当然,不在我的Outlook 2010客户端中.如果可能,任何解决方案也应与Outlook 2007兼容.

我确实尝试了"光标:手"而没有运气只是为了好玩.

html outlook mailing-list

3
推荐指数
1
解决办法
3682
查看次数

将VBA的范围缩小到单个文档?

当我只打开这个特定的Excel文件时,我有以下子程序,就像我想要的那样

Private Sub Worksheet_Calculate()
    If Sheets("Dashboard").Range("Z11").Value > 0 Then
        Sheets("Dashboard").Shapes("tileOverdueTasks").Fill.ForeColor.RGB = RGB(185, 0, 0)
    Else
        Sheets("Dashboard").Shapes("tileOverdueTasks").Fill.ForeColor.RGB = RGB(0, 185, 0)
    End If
End Sub
Run Code Online (Sandbox Code Playgroud)

问题是,如果我在打开另一个文档时打开另一个文档,我会收到以下错误:

在此输入图像描述

调试显示问题所在.

在此输入图像描述

我是VBA的新手,但我尝试ActiveSheet在所有表格引用之前添加,但没有减轻错误.如何确保仅在脚本所在的文档中的"仪表板"表上运行?

excel vba excel-vba

3
推荐指数
1
解决办法
40
查看次数

复制表而不创建命名范围的新实例?

我正在使用以下代码复制工作表.我还有一些命名范围作为工作簿的范围.问题是,当我执行复制时,它会创建具有新工作表范围的所有命名范围的副本.一切都当然有效,但我可能有20多张.我不需要80个命名范围,大多数是重复的.我怎么能避免这个?

Sub btnCopyTemplate()
    Dim template As Worksheet
    Dim newSheet As Worksheet
    Set template = ActiveWorkbook.Sheets("Template")
    template.Copy After:=Sheets(Sheets.Count)
    Set newSheet = ActiveSheet
    newSheet.Name = "NewCopy"
End Sub
Run Code Online (Sandbox Code Playgroud)

副本后的名称管理员:

在此输入图像描述

excel vba excel-vba

3
推荐指数
1
解决办法
1万
查看次数

jquery fadeOut()多次使用相同的元素

我有以下代码,当事情发生时通知用户:

window.parent.$(".Toast").html('Successfully Did Something!').fadeOut(9000);
Run Code Online (Sandbox Code Playgroud)

它第一次工作得很好,但是当然,元素仍然设置为隐藏并具有相同的文本.因此,当用户再次触发它时,没有任何反应.我已经尝试立即将html()设置为空并显示它,但这会立即发生,所以你永远不会看到文本.我想我可以在打开编辑对话框时让它"重置",但我确信有人可以通过简单的方法解决这个问题.

javascript jquery

2
推荐指数
1
解决办法
1208
查看次数

计算趋势是上升,下降还是稳定

我正在编写一个VBScript,每周发送一封包含客户活动的电子邮件.以下是一些示例数据:

a       b       c       d       e      f        g
2,780   2,667   2,785   1,031   646    2,340    2,410
Run Code Online (Sandbox Code Playgroud)

由于这是电子邮件,我不想要带有趋势线的图表.我只需要一个简单的函数,返回"向上","向下"或"稳定"(虽然我怀疑它将永远是完全稳定的).

我对数学很糟糕,所以我甚至不知道从哪里开始.我已经查看了Python或Excel的一些其他问题,但是没有足够的相似性,或者我没有足够的知识将其应用于VBS.

我的目标就是这样简单:

a       b       c       d       e      f        g        trend
2,780   2,667   2,785   1,031   646    2,340    2,410    ?
Run Code Online (Sandbox Code Playgroud)

如果有一些增量或百分比或其他测量值,我可以显示这将有所帮助.我也可能想忽略异常值.例如,上面的646.我们的一些客户周末不开放.

math vbscript trend

2
推荐指数
1
解决办法
4668
查看次数

“未解析的变量或键入谷歌”

使用 Google Maps API,WebStorm 告诉我google未解决。我在Languages & Frameworks设置中添加了库,但它仍然存在。

在此处输入图片说明

google-maps-api-3 webstorm

2
推荐指数
1
解决办法
2091
查看次数

根据高度在滚动时更改不透明度

我在一个页面上有多个部分。每个都有一个从不1透明度开始的叠加层。当您滚动它到达0元素底部位于页面顶部时,我希望它减少不透明度。

我将此代码基于此处的另一个问题,它几乎适用于一个问题,但我想对页面上的多个元素执行此操作,这就是问题所在。当我尝试它时,每个后续元素开始时不透明,如果窗口大小减小,情况会更糟。

$(window).scroll(function () {
    var homeTop = $(window).scrollTop();
    var height = $(window).height() / 2;

    $('#splashback-home').css({
        'opacity': ((height - homeTop) / height)
    });
});
Run Code Online (Sandbox Code Playgroud)

对于.splashback该类的任何元素,我如何才能使其动态化?

我在想这样的事情?

    $('.splashback').each(function () {
        var scrollTop = $(window).scrollTop();
        var thisTop = $(this).offset().top;
        var thisHeight = $(this).height();
        newOpacity = ???
        if (newOpacity > 1) newOpacity = 1;
        $(this).css({'opacity': newOpacity});
    });
Run Code Online (Sandbox Code Playgroud)

javascript jquery

2
推荐指数
1
解决办法
1948
查看次数

在IntelliJ IDE中使用Git合并分支

我知道有很多问题,但是我遇到了麻烦。首先,我使用的是Webstorm(IntelliJ),而不是命令行。其次,这似乎因观点而异。

很明显,我有我的主分支。我创建了一个名为“ InlineEditing”的新分支。我已经在这个分支机构工作了几天。master分支没有更改。现在,我想将当前分支中的所有更改移回主服务器,然后从那里继续工作。

在Webstorm中,以InlineEditing作为当前分支,我尝试使用以下方法进行合并,但似乎没有任何作用。即,当我然后结帐master分支时,它是旧代码。

在此处输入图片说明

所以我的问题是,将当前分支“合并”回主服务器的正确方法是什么?

git merge intellij-idea

2
推荐指数
2
解决办法
8389
查看次数