小编HK1*_*HK1的帖子

VBScript字典存在方法始终返回True

我究竟做错了什么?从我的测试中,objDic.exists永远不会给出错误!

    dim objDic

    set objDic = createobject("scripting.dictionary")

    objDic.add "test","I have not been deleted"

    wscript.echo objDic.item("test") 'Displays -- I have not been deleted

    objDic.remove "test"

    wscript.echo """" & objDic.item("test") & """" 'Displays -- ""

    if objDic.exists("test") then wscript.echo """" & objDic.item("test") & """" 'Displays -- ""
Run Code Online (Sandbox Code Playgroud)

vbscript dictionary exists

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

使它成为exe的最好方法只能运行一次

我有一个Visual Basic应用程序,如果安装运行不止一次,往往会严重搞砸.似乎偶尔客户端错误地将安装程序错误地提供给它的快捷方式,再次运行安装程序并且它会使一切都混乱.我不能为我的生活弄清楚为什么所以我决定最简单的方法就是让它只能在机器上运行一次,否则它就会结束.有任何想法吗?

vb.net vb6

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

使用LINQ进行分组

我有一点时间将一个简单的SQL查询转换为LINQ查询(使用vb btw)

这是我的SQL:

SELECT     USRDEFND5
FROM         int_gp_employee
GROUP BY USRDEFND5
Run Code Online (Sandbox Code Playgroud)

xml看起来像这样:

<int_gp_employee>
  <row>
    ....
    <usrdefnd5>Some GUID</usrdefnd5>
  </row>
</int_gp_employee>
Run Code Online (Sandbox Code Playgroud)

我尝试过LINQ的许多不同版本.我目前的陈述是:

From b In xmlFile...<row> Group b...<usrdefnd5> By b...<usrdefnd5> INTO group

当我通过生成的集合进行预测时,每条线(17000)都显示出来.

谢谢参观.

.net xml sql linq vb.net

6
推荐指数
1
解决办法
366
查看次数

使用HTML5音频按钮悬停声音

当用户将鼠标悬停在我的一个列表项按钮上时,是否可以使用HTML5发出声音?当用户将鼠标悬停在导航按钮上时,我想一次播放非常短的咔嗒声/唧唧声.我意识到它不会在每个浏览器或设备上兼容,只要它优雅地降级就可以了.出于某种原因,为此使用Flash会更好吗?

编辑
另外,如果可以这样做,我会对一些示例代码感兴趣,包括javascript(如果需要javascript).我对HTML很好,但对Javascript不太方便.

html5 html5-audio

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

在内存中,独立,断开的ADO记录集

当我的表单加载并且我没有收到任何错误消息或代码中断时,我在我的数据表子表单上运行此代码.我的debug.print显示Recordset rs已经填充了2131条记录,但我的表单显示了一行#Name?在每个领域.我的控件上的控件源属性肯定与我上面列出的字段名称匹配.RS是一个表单级变量,我不会关闭它或将其设置为空,直到表单关闭.

知道我做错了什么吗?

Set rs = New ADODB.Recordset
rs.Fields.Append "TimesUsed", adInteger
rs.Fields.Append "strWorkType", adVarWChar, 150
rs.Fields.Append "DateLastUsed", adDate
rs.Fields.Append "SelectedYN", adBoolean
Set rs.ActiveConnection = Nothing
rs.CursorLocation = adUseClient
rs.LockType = adLockBatchOptimistic
rs.Open

Dim sSQL As String
sSQL = "MyComplicated SQL Statement Ommitted from this SO Question"

Dim r As DAO.Recordset
Set r = CurrentDb.OpenRecordset(sSQL, dbOpenDynaset, dbSeeChanges)
If Not (r.EOF And r.BOF) Then
    r.MoveFirst
    Dim fld
    Do Until r.EOF = True
        rs.AddNew
        For Each fld In r.Fields
            rs(fld.Name) = r(fld.Name).value
        Next …
Run Code Online (Sandbox Code Playgroud)

ms-access ms-access-2007 access-vba

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

将Style从Resource应用到ListView.ItemContainerStyle

我在VS 2012中使用XAML/WPF.我承认我还没有真正理解模板和样式.

我在application.xaml文件中定义了一个样式,如下所示:

<Style x:Key="ContactGroups" TargetType="ListViewItem">
    <!-- Styling omitted here -->
</Style>
Run Code Online (Sandbox Code Playgroud)

现在我想将这个样式应用到我的列表视图中,但我无法弄清楚应用这个样式的位置,即在哪里放置代码来设置样式.我在这里省略了很多属性来缩短时间:

<ListView ItemsSource="{Binding Groups}" SelectedItem="{Binding Path=SelectedGroup, Mode=OneWayToSource}" >
    <ListView.ItemsPanel>
        <ItemsPanelTemplate>
            <WrapPanel />
        </ItemsPanelTemplate>
    </ListView.ItemsPanel>
    <ListView.ItemTemplate>
        <DataTemplate>
            <Grid Width="140" Height="25">
                <Grid.RowDefinitions>
                    <RowDefinition Height="2*" />
                </Grid.RowDefinitions>
                <Label Content="{Binding Name}" ToolTip="{Binding Name}" />
            </Grid>
        </DataTemplate>
    </ListView.ItemTemplate>
</ListView>
Run Code Online (Sandbox Code Playgroud)

wpf xaml

5
推荐指数
1
解决办法
7581
查看次数

VB.Net Com Interop - 将COM事件接收到VBA客户端

我在VB.NET中编写COM互操作DLL,我需要将事件暴露给VBA COM客户端.我无法绕过这一个.

这是.NET FTP库的COM包装器,所以不要因为我在BytesTransferred事件上引发BytesTransferred事件而感到困惑.

我最好回想一下,这段代码可以工作,但是当我使用对象浏览器时,它无法在COM客户端中显示任何事件.当我尝试将变量WithEvents变暗时,它也无法编译:

Public Interface IFTP
    Event BytesTransferred(ByVal ByteCount As Long, ByVal RemoteFileName As String)
End Interface

'Here's the relevant part of my class:
Public Interface IFTP
    Event BytesTransferred(ByVal ByteCount As Long, ByVal RemoteFileName As String)
End Interface

Here's the relevant part of my class:

<ClassInterface(ClassInterfaceType.None)> _
    Public Class FTP : Implements IFTP

    Public Sub New()
        'This needed for com interop
    End Sub

    Public Event BytesTransferred(ByVal ByteCount As Long, ByVal RemoteFileName As String) Implements IFTP.BytesTransferred

    Private Sub fCon_BytesTransferred(ByVal …
Run Code Online (Sandbox Code Playgroud)

vb.net com-interop

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

WinForms DataGridView - 需要单击 3 次才能编辑单元格中的现有文本

可能的重复:
一键直接访问 DataGridView 组合框?

我确信这种行为是设计使然,但我觉得在很多情况下它并不直观。

如果您通过单击与当前所在行不同的一个单元格来将光标移动到新行,则第一次单击只会将您移动到该行并突出显示您单击的整个单元格。第二次单击会选择所有文本,就像您想要删除或覆盖它一样。第三次单击将最终将光标定位在您单击的文本内的位置。

有什么方法可以更改行为,以便用户可以移动到不同的行并在第一次或至少第二次单击后内联编辑现有文本?

Edit1:
所以下面给出的答案效果很好。Microsoft 讨论站点上的问题(如果启用了 EditOnEnter 模式则无法选择行)似乎已通过 Visual Studio 2008 得到解决。

我剩下的唯一问题是,当用户使用选项卡移至下一条记录或单击下一个单元格时,整个文本会立即被选中,这可能会导致无意的覆盖。有一个简单的解决办法吗?

Edit2:
您为 edit1 提供的解决方案确实有效,但有一个问题。第一次单击不同的单元格后,光标将始终位于文本的末尾。我不认为这真的是一个如此糟糕的问题,所以我不会担心尝试修复它。

.net datagridview winforms

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

SQL - 使用LEFT OUTER JOIN的计数不正确

我正在尝试从问题表中检索字段以及评论表和issue_assigneduser表中的相关记录计数.如果有2个评论和6个指定用户,则我获得的值对于两个计数都是12.知道如何解决这个问题吗?

SELECT issue.issueid, COUNT(comment.commentid) AS CountOfComments, 
    Count(issue_assigneduser.userid) as CountOfAssignedUsers, 
    issue.title, issue.detail, issue.enteredby, 
    issue.datetimeentered, issue.assignedto, issue.categoryid,  
    issue.severityid, issue.statusid, 
    issue.lastcommentdatetime as LastCommentDateTime, 
    issue.lastcommentbyuserid, 
    users.initials as LastCommentUserInitials,  
    lookupstatus.status as Status, 
    lookupcategory.category as Category, 
    lookupseverity.severity as Severity, 
    GetUTCDate() as UTCDateTime  
FROM issue
    INNER JOIN lookupcategory ON issue.categoryid = lookupcategory.categoryid
    INNER JOIN lookupseverity ON issue.severityid = lookupseverity.severityid
    INNER JOIN lookupstatus ON issue.statusid = lookupstatus.statusid
    LEFT OUTER JOIN  comment ON issue.issueid = comment.issueid
    LEFT OUTER JOIN  issue_assigneduser ON issue.issueid = issue_assigneduser.issueid
    LEFT OUTER JOIN  users ON …
Run Code Online (Sandbox Code Playgroud)

sql

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

Google Calendar API V3 - 默认或主日历

我正在尝试使用 VBA 访问 Google Calendar API V3。我不知道如何确定默认情况下应将新事件写入哪个日历。Google Calendar API V3 下没有默认或主日历这样的东西吗?

默认日历的 CalendarID 是否始终是用户的电子邮件地址?

google-calendar-api google-api

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